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I.   INTRODUCTION 

A.   STATEMENT  OF  TASK 

The  original  task  of  this  research  project  was  to  con- 
tinue the  work  of  Macchi  [Ref.  1]  and  Cirone  [Ref.  2]  in  the 
development  of  a  turbine  prediction  computer  code  for  the 
Turbopropulsion  Laboratory  at  the  Naval  Postgraduate  School. 
An  analysis  of  the  referenced  code  by  Ferguson  [Ref.  3]  in- 
dicated that  a  significant  amount  of  work  remained  to  be 
done  in  order  to  make  the  program  operational.   In  the  au- 
thor's opinion  the  task  could  be  better  accomplished  through 
the  use  of  a  different  solution  technique.   After  additional 
study  and  review  of  similar  work  [Refs.  4,  5,  6  and  7]  it 
was  decided  that  a  finite  element  approach  to  the  problem 
would  be  adopted.   A  program  developed  by  Gavito  [Ref.  8], 
which  followed  the  work  of  Hirsch  and  War zee  [Ref.  4],  was 
selected  as  the  basis  for  development  of  the  computer  code 
described  in  the  sections  that  follow.   However,  Gavito 's 
program  was  formulated  as  a  compressor  performance  predic- 
tion which,  as  it  was  reported,  had  not  given  results  simi- 
lar to  those  obtained  by  Hirsch  and  Warzee.   Thus  the  first 
goal  of  the  project  became  the  development  of  an  axial  com- 
pressor prediction  code  that  could  produce  results  compara- 
ble to  those  published  by  Hirsch  and  Warzee.   The  second 
goal  was  to  revise  and  document  the  program  so  that  its 


15 


application  to  any  compressor  and  its  extension  to  turbine 
analysis  could  be  carried  out  without  excessive  difficulty. 

B.   DESCRIPTION  OF  THE  PROBLEM 

One  purpose  of  conducting  a  through-flow  analysis  is  to 
predict  the  performance  of  a  turbomachine  under  design  and 
off-design  operating  conditions.   Through  the  combination  of 
a  mathematical  model  and  empirically  determined  correlations, 
it  is  possible  to  provide  the  engineer  with  a  tool  that  will 
determine  the  effects  of  variations  in  design  parameters 
and  analyze  the  performance  of  an  existing  machine. 

The  first  problem  addressed  in  the  formulation  of  a  per- 
formance prediction  code  is  that  of  expressing  the  analysis 
in  a  form  that  can  be  accurately  and  efficiently  solved  by 
computer  methods.   Most  methods  for  through-flow  calcula- 
tions are  based  on  the  classic  work  of  Wu  [Ref.  9]  which 
stated  that  the  equations  of  fluid  flow  in  turbomachines  can 
be  solved  on  the  intersecting  sets  of  stream  surfaces  known 
as  the  SI  family  and  S2  family  of  stream  surfaces  (Fig.  1) . 
In  general  the  intersection  of  a  Si  surface  and  a  S2  sur- 
face is  a  twisting  line  with  three  dimensional  variations. 
However ,  if  an  axisymmetric  assumption  is  made,  the  S2  sur- 
face will  lie  on  a  meridional  plane  and  the  directional 
derivatives  on  the  S2  surface  become  the  3(  )/3r  and  3(  )/3z 
in  cylindrical  coordinates.   As  shown  by  Smith  [Ref.  10], 
circumf erentially  averaged  equations  with  an  axisymmetric 
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flow  assumption  can  be  used  to  a  good  first  approximation 
for  the  through-flow  analysis. 

Three  general  methods  of  solving  the  so-called  radial 
equilibrium  equation  of  flows  in  turbomachines  which  results 
from  the  axisymmetric  assumption  can  be  found  in  the  litera- 
ture.  The  first  is  called  the  streamline  curvature  method 
[Refs.  1,  2  and  11].   The  method  derived  its  name  from  the 
fact  that  the  radius  of  curvature  of  the  streamline  is  an 
integral  part  of  the  formulation.   The  second,  a  matrix 
method,  applies  a  finite  differences  technique  to  the  radial 
equilibrium  equation,  normally  after  it  has  been  reduced 
to  a  Poisson  form  [Refs.  12  and  13] .   The  third  method  is 
the  finite  element  method  which  was  used  in  the  present 
work. 

In  the  mid-1970 's,  Hirsch  and  Warzee  [Ref.  4]  first  re- 
ported the  application  of  the  finite  element  me-chod  to  solu- 
tion of  the  axisymmetric  radial  equilibrium  equation.   They 
applied  the  finite  element  technique  to  solve  the  equation 
expressed  in  quasi-harmonic  form  in  terms  of  the  stress 
function.   They  published  extensive  comparisons  of  the  pre- 
dictions obtained  using  their  method  with  measurements  ob- 
tained on  several  machines  under  various  operating  conditions. 
In  general,  the  method  produced  excellent  results  for  com- 
pressors and  turbines  of  single  and  multi-stage  configura- 
tions.  It  was  this  demonstrated  ability  of  the  method  over 
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such  a  wide  range  of  parameters  that  let  to  its  selection 
for  use  in  the  present  project. 

In  the  sections  which  follow,  the  development  of  pro- 
grams MESHGEN  and  TURBO,  which  are  based  on  the  work  of 
Hirsch  and  Warzee  [Ref.  4],  is  documented.   Comparisons  are 
given  of  the  results  obtained  when  the  program  was  applied 
to  analyze  the  NASA  Task-1  compressor  with  results  obtained 
by  the  referenced  authors. 
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II.   MATHEMATICAL  MODEL 

The  equation  of  motion  for  a  fluid  has  the  general  form 
(Vavra  [Ref.  14]) 

OV/3t)  +  (V«V)V  =  -Vp/p  +  lf  -  V(gz)  (1) 

Using  the  vector  identity 

(V-V)V  =  V(VZ/2)  -  (VxVxV)  (2) 

Eq.  (1)  can  be  written  as 

SV/at  +  V(V2/2  +  gz)  =  -Vp/p  +  lf   +  (V x V x  V)       (3) 

The  first  law  of  thermodynamics  for  a  fluid  particle  can  be 
written  as 

Tds  =  dh  -  dp/p  (4) 

which,  along  an  elemental  path  length  dr  in  a  fluid  field 
implies  that 

T(dr-Vs)  =  (dr-V)h  -  (dr*V)p/p  (4a) 

or 

dr  •  (Vh  -  T7s  -  Vp/p)  =  0  (5) 

Since  dr  is  not  equal  to  zero  in  general,  in  a  homogeneous 
fluid  flow  the  first  law  may  be  expressed  as 

Vh  -  TVs  -  Vp/p  =  0  (6) 

Substituting  Eq.  (6)  into  Sq.  (3)  yields 
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3V/3t  +  V(h+V2/2+gz)  =  TVs  +  ?f  +  VxVxV         (7) 

For  steady,  inviscid  flow  Eq .  (7)  reduces  to 

VH  =  TVs  +  (Vx  V  x  V)  (8) 

As  shown  by  Hirsch  and  Warzee  [Ref.  15],  Eq .  (8)  can 
be  revised  to  describe  the  flow  through  blade  rows  by  intro- 
ducing a  circumferential  averaging  process  and  assuming  that 
the  flow  is  axisymmetric  at  the  averaged  condition.   The 
averaged  equation  can  be  expressed  as 

-(VxVxV)  =  TVs  -  VH  +  Fb  +  Fd  (9) 

where  F,  is  the  body  force  representing  the  action  of  the 

blades  on  the  flow  and  F.  represents  the  dissipative  force 

c  r 

whose  work  generates  the  irreversible  entropies.   The  F, 
forces  are  considered  to  be  uniformly  distributed  in  the 
tangential  direction  and  proportional  to  the  loss  coeffi- 
cients.  Equation  (9)  leads  to  the  following  three  equations 
in  cylindrical  coordinates  (with  3(  )/38  =  0) 

(Vu/r) (3(rVu)/3r)  -  Vz((3Vr/3z)-  (3Vz/3r))  = 

3H/3r  -  T(3s/3r)  ~  Fb  r  ~  Fd  r         dOa) 

(V/r)( 3(rV)/3zV  +  (V  /r) ( 3 (rV  ) / 3r)  »F        (10b) 

Vr((3Vr/3z)  -  (3Vz/3r))  -  (Vu/r ) ( 3 (rVu) / 3z)  = 

3H/3z  -  T(3s/3z)  -  F  (10c) 

z 
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Equation  (10a)  expresses  the  radial  equilibrium  of  the 
meridional  through-flow  and  it  is  the  governing  equation  to 
be  solved  for  the  velocity  components.   Equations  (10b)  and 
(10c)  determine  the  tangential  and  axial  components  of  the 
forces  once  Eq.  (10a)  has  been  solved. 

For  the  solution  of  Eq .  (10a)  to  have  physical  meaning, 
care  must  be  taken  to  ensure  that  continuity  is  satisfied 
throughout  the  field.   In  general,  the  continuity  equation 
can  be  expressed  as 

3p/St  +  V- (pV)  =  0  (11) 

which  for  steady,  circumferentially  averaged  flow  can  be 
written  as 

(3/3r) (prbV  )  +  (3/3z) (prbV  )  =  0  (12) 

where  b  is  a  blockage  factor  describing  the  reduction  in  the 
flow  area  in  the  tangential  direction  due  to  the  presence  of 
rotor  and  stator  blades.   The  tangential  blockage  is  ap- 
proximated by 

b  =  1  -  t/s  (12a) 

where  t  is  the  blade  thickness  and  s  is  the  blade  spacing. 
As  will  be  discussed  in  the  description  of  subroutine  INPUT, 
this  factor  will  be  modified  to  account  for  the  end-wall 
boundary  layer  contractions.   A  stream  function,  ty ,    can  be 
introduced  and  defined  so  that  Eq .  (12)  is  automatically 
satisfied  as  follows: 
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3iJ>/3r    =    prbV  (13a) 

3^/3z    =    -prbV  (13b) 

After  the  substitution  of  Eqs.  (13a)  and  (13b)  into  Eq . 
(10a)  one  is  assured  of  the  implicit  satisfaction  of  con- 
tinuity as  the  radial  equilibrium  equation  is  solved  ex- 
plicitly.  Equation  (10a)  may  now  be  written  as 

(3/3r)  ((1/prb)  (3^/3r)  )  +  (  3/ 3z)  (  (1/ prb)  (  dip/ 3z)  )  = 

(1/VZ) ((3H/3r)  -  T(3s/3r)  + 

(V  /r)(3(rV  )/3r))-  F,    -  F,  (14) 

u    v     u     '/    b,r    d,r 

The  equation  is  written  in  a  slightly  different  form  for 
solution  in  rotor  regions  where  rothalpy  remains  constant 
along  a  streamline.   The  definition  of  rothalpy,  H  ,  given  by 

HR  =  H  -  UVu  (15) 

is  substituted  into  Eq .  (14)  and  the  terms  in  brackets  on 
the  right-hand  side  become 

^3HR/3r-T(3s/3r)  -  (Wu/r)  (3(rVu)/3r)-  F^r-  pd,r]        (16) 

The  significance  of  the  F,    and  F,    terms  can  be  analyzed 

b,r       d,r  J 

in  the  following  manner.   The  body  force  F,  acts  in  a  direc- 
tion normal  to  the  mean  blade  surface,  which  for  radial 

blading  is  in  the  circumferential  direction.   The  term  F, 

3  b,r 

accounts  for  the  body  force  component  in  the  radial  direc- 
tion that  results  when  blade  lean  is  present.   For  most 
blading  this  is  a  small  term  that  may  be  neglected. 
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Similarly,  F,    is  the  contribution  of  the  dissipative 

a ,  r 

forces  in  the  radial  direction  for  non-cylindrical  stream 
surfaces.   This  contribution  can  normally  be  neglected  for 
axial-flow  machines,  which  is  the  case  treated  here.   (Note 
that  the  two  body  force  terms  are  included  in  the  analysis 
for  machines  in  which  the  magnitudes  of  these  forces  are 
significant.)   With  these  simplifications  the  radial  equi- 
librium equation  may  be  written  in  the  form 

(3/3r)  (  (1/prb)  C^/3r)  )  +  (3/3z)  (  (1/prb)  (3^/3z))  = 

(1/V  )  (OH/3r)  -  T(3s/3r))+(V/r)(3(rV)/3r)         (17) 

c*  —  LI 

with  the  appropriate  modifications  for  solution  in  a  rotor 
region. 
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III.   FINITE  ELEMENT  METHOD 

A.   INTRODUCTION 

The  finite  element  method  is  a  numerical  procedure  that 
is  particularly  well  suited  to  solving  problems  in  continuum 
mechanics,  which  invariably  involve  equations  expressed  in 
differential  form.   As  stated  by  Cook  [Ref.  16],  the  essence 
of  the  finite  element  method  is  the  "piecewise  approximation 
of  a  function  cf>,  by  means  of  polynomials,  each  defined  over 
a  small  region  (element)  and  expressed  in  terms  of  nodal 
values  of  the  function." 

In  order  to  understand  the  finite  element  method  and 
the  solution  techniques  employed  in  the  computer  program 
reported  herein,  one  must  first  have  a  complete  understand- 
ing of  the  basic  element,  the  terminology  used  to  describe 
the  element,  and  the  relationship  between  the  element  and 
the  remainder  of  the  solution  domain.   The  complete  problem 
is  solved  in  a  piecewise  manner,  in  which  the  solution  of 
the  derived  governing  relationship  over  the  discrete  region 
of  an  element  is  sought  to  determine  the  contribution  of  the 
element  to  the  overall  solution.   Figure  2  illustrates  the 
single  element  as  it  is  used  in  the  present  work  and  the 
nomenclature  for  the  element  on  what  is  referred  to  as  the 
"local  domain".   The  number  scheme  to  employ  is  arbitrary, 
limited  only  by  the  requirement  that  the  system  remain 


24 


consistent  from  element  to  element.   Figure  3  shows  a  ver- 
tical stack  of  three  elements  to  show  how  elements  are  con- 
nected in  what  is  known  as  a  "global  domain" .   Table  1  lists 
the  relationship  between  the  two  reference  systems,  known  as 
the  connectivity.   The  connectivity  is  important  because  the 
solution  of  a  problem  over  a  computational  region  involves  a 
careful  summation  of  the  local  contributions  of  each  element 
to  the  global  equations.   The  summation  process  is  tracked 
by  the  connectivity.   Again  the  global  numbering  scheme  is 
arbitrary,  influenced  mainly  by  considerations  of  computer 
storage  and  computational  efficiency. 

The  key  concept  to  be  grasped  is  that  the  finite  element 
method  is  a  series  of  local  solutions  that  are  coupled  to- 
gether through  the  connectivity  relationships  to  form  a  so- 
lution for  the  entire  computational  domain.   A  more  detailed 
description  of  the  finite  element  method  is  contained  in 
Refs.  16  through  18. 

B.   APPLICATION  OF  THE  WEIGHTED  RESIDUAL  PROCESS 

A  standard  weighted  residuals  process  was  used  to  trans- 
form Eq.  (17)  into  a  form  that  can  be  solved  by  numerical 
techniques.   As  a  first  step,  the  equation  was  written  in  a 
more  compact  form  as 

(3/3r)  [k(3if>/3r)]  +   (3/3z)  [k  (3i|>/3z)  ]  +  f   =   0  (18) 

where 

k(r,z)    =    (1/prb)  (19) 
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f(r,z)  =  (1/VZ)  [T(3s/3r)  -  3H/3r+  (Vu/r)(.5(rVu)/3r)]     (20) 
with  the  boundary  conditions 

k(3^/3n)  +  a1  ity  -  tyQ)    =  0  (21) 

on  the  associated  exterior  surface  S.   Equations  (18)  and 

(21)  may  be  rewritten  as 

(l/r){  (3/3r)  [kOip/ar)]  +  (3/3z)  [k(3if>/3z)  ]  +  f }    =   0         (22) 

in    the    volume,    V,    and 

(1/r)  [k(3^/3n)    +   »x (*  -  *Q) ]    =   0  (23) 

on  the  surface,  S.   An  approximation,  ip(r,z),  of  the  unknown 
solution  is  searched  for  such  that  the  corresponding  weighted 
residual,  R,  is  equal  to  zero.   Analytically  this  is  ex- 
pressed as 

R  =  Jw(r,z)  R..(r,z)  dV  +  Jw(r,z)  R  (r,z)  dS  =  0     (24) 
V        V  S         b 

where  W(r,z)  is  the  (known)  weight  function  and  R_.  and  R 
are  the  so-called  "residuals"  in  the  volume  and  on  the  sur- 
face, respectively.   As  the  sum  of  R--  and  Rq  approaches 
zero,  the  approximation,  ip,  approaches  the  exact  solution, 
ty,    with  R-.  and  Rq  defined  to  be  identically  zero  if  ty    =   ty. 
By  defining  EL,  to  be  equal  to  the  left-hand  side  of  Eq . 

(22)  and  R_  to  be  equal  to  the  left-hand  side  of  Eq .  (23) , 
Sq.  (24)  can  be  written  as 

/-W(r,z)  [  (3/3r)  {k(3^/3r)  }  +  (3/3z)  (k(3ijj/3z)  }  +  f]2irdfi 

Q 

+    Jwk(3^/3n)27TdC    =    0  (25) 

C 
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Integration  of  the  first  term  of  Eq .  (25)  by  parts  yields 

J[k{  (3<jj/3r)  (3W/3r)  +  (  3  i/j  /  3z)  (3W/  3z)  }  -  Wf  ]  dft  =  0    (26) 

n 

if  ip  is  selected  to  equal  ijj-  along  the  corresponding  part  of 
the  boundary.   The  second  term  of  Eq .  (26)  reduces  to  zero 
through  the  proper  application  of  the  boundary  conditions. 
The  boundary  conditions  must  be  satisfied  in  different 
ways  for  different  portions  of  the  boundary.   Along  the  in- 
let where  a,  =  0  the  conditions  may  be  satisfied  by  speci- 
fying (3ip/3n)  to  be  zero  or  by  specifying  the  nodal  values 
of  ti    if  the  inlet  conditions  are  conducive  to  calculating  ty 
for  each  node.   Along  the  shroud  and  along  the  hub  the  value 
of  tp  must  be  specified  as  ip  =  (m/2TT)  at  the  shroud  and  ij;  =  0 
at  the  hub.   For  nodes  at  the  exit  plane,  the  condition  that 
(3^/3n)  =  0  is  required. 

C.   APPLICATION  OF  THE  FINITE  ELEMENT  METHOD 

The  first  step  is  to  discretize  the  region  into  sub- 
regions  or  elements.   Within  each  element  the  unknown  stream 
function,  ty ,    and  the  coordinates  r  and  z  are  assumed  to  have 
the  following  polynomial  variations: 


*(r,.z)  =  I    ^iNi(;^,n)  (27a) 


r  =  I    riNi(^,n)  (27b) 


z  =  I    ziNi(.?,n)  (27c) 
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where    n  =  number  of  nodes  in  the  element 

N.  =  the  shape  or  (trial)  function  for  node  i 
\p .    =   value  of  ip  at  node  i 

r.  =  value  of  r  at  node  i 

1 

z .  =  value  of  z  at  node  i 

1 

Equations  (27b)  and  (27c)  imply  a  geometrical  as  well  as 
functional  transformation  or  mapping,  as  shown  for  the  pres- 
ent case  in  Fig.  4. 

The  second  step  in  the  process  is  the  selection  of  the 
weight  and  shape  functions.   The  shape  functions  are  defined 
when  the  particular  type  of  finite  element  is  selected  for 
the  computational  grid  [Ref.  16].   The  eight-noded  quadri- 
lateral was  used  in  the  present  program  and  its  associated 
shape  functions  were  entered  in  a  subroutine.   The  weight 
function  is  independent  of  the  shape  function  and  may  be 
chosen  at  the  discretion  of  the  individual.   In  the  present 
case  the  standard  Galerkin  technique  was  employed  and  there- 
fore, the  weight  functions  were  defined  as  being  equal  to 
the  shape  functions,  so  that 

W(r,z)  =  N(r,z)  (28) 

Equation    (26)    may   now   be    expressed    in   the    following    form: 

/ IkfuN./ar)  I  (3Ni/3r)  +  (3N./9z)  £(9N./9z)  JON^z)] 

-   N.f(r,z)tdfl   =   0  (29) 
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where  /  represents  the  integral  over  an  element.   In  matrix 

E 
notation  this  becomes 

[K]e{5 }e  -  {f}e  (30) 

where 

ke  .  =  /k(r,z) [ (3N./3r) (3N./3r)+(3N./3z) (3N./3z) ]dfi    Ola) 
ID   E  31        J       1 

fe  =  /N.  f(rfz)  d.Q  (31b) 

1    E  L 

and 

5  .  -  i|i.  (31c) 

The  summation  of  the  elemental  contributions  over  the  entire 
region  yields  the  global  system  of  equations  needed  to  solve 
the  problem.   In  matrix  notation  the  global  system  of  equa- 
tions is  expressed  as 

[K] {<S }  =  {f}  (32) 

where 


m 
[K]  =  I    [K]*  (33a) 


{5 }  =  I    {a  }T  (33b) 


m 

I 
i 

and    m  =  number  of  elements  in  the  mesh 
1    ri 


{f}  =  j  {f}±  (33c) 
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[K]  =  system's  stiffness  matrix 

{f}  =  system's  right-hand  side  vector 
Since  k. .  and  f.  depend  on  the  unknown  solution  ty ,    Eq .  (32) 
is  a  nonlinear  differential  equation  to  be  solved  by  an 
iterative  procedure.   The  details  of  the  procedure  are  con- 
tained in  section  V. 

D.   NUMERICAL  INTEGRATION  TECHNIQUE 

In  general,  problems  are  analyzed  using  a  coordinate 
system  in  which  the  boundary  conditions  can  be  written  and 
satisfied  in  the  simplest  possible  way.   For  problems  with 
irregularly  shaped  boundaries  and/or  mixed  conditions  along 
different  portions  of  the  boundary,  obtaining  numerical  so- 
lutions in  the  original  coordinate  system  can  be  a  formida- 
ble task.   Very  often  a  scheme  must  be  found  to  transform 
the  derived  equations  into  a  new  coordinate  system  that  con- 
forms to  the  requirements  of  standard  numerical  techniques. 
Traditional  transformation  techniques  tend  to  be  complicated 
exercises  in  algebra  that  require  extensive  reformulation 
for  each  geometry  or  type  of  boundary  condition.   The  power 
of  the  finite  element  method  is  the  automatic  inclusion  of 
a  transformation  of  the  geometry  and  the  function  tc  a  rec- 
tangular domain  where  a  variety  of  integration  techniques 
may  be  employed.   This  can  be  seen  in  Fig.  4,  which  illus- 
trates what  is  implied  by  Eqs.  (27a),  (27b),  and  (27c).   The 
method  can  handle  extremely  complicated  boundary  conditions 
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and  shapes  with  ease  and  is  limited  only  by  the  type  of  ele- 
ment selected  by  the  individual. 

The  quadratic  properties  of  the  eight-node  element  allows 
curved  bcundaries  in  the  physical  domain  so  long  as  the  sec- 
tion of  rhe  boundary  included  within  a  single  element  does 
not  have  a  point  of  inflection.   The  use  of  a  quadratic  ele- 
ment also  ensures  continuity  of  the  approximated  function 
along  the  elemental  boundaries  regardless  of  the  direction 
of  approach  from  within  the  mesh.   The  specific  numerical 
technique  used  in  the  program  is  discussed  in  the  following 
section. 

1.   Stiffness  Matrix  Evaluation 

In  section  C  the  following  relationship  was  derived 
for  the  individual  elements  of  the  stiffness  matrix,  [K]: 

ke.  =  /k(r,z) [ ON./3r) (3N./3r)  +  (3N./3z) (3N./3z) ]dft    (31a) 
ij    E  3i         J       1 

In  order  to  take  advantage  of  well  established  numerical  in- 
tegration techniques,  Eq .  (31a)  must  be  transformed  from  the 
(z,r)  domain  and  its  irregular  elemental  boundaries  to  the 
rectangular  (c,,r])    domain.   Equations  (27a)  through  (27c)  de- 
scribe the  variation  of  the  function  and  the  (r,z)  coordinate 
values  in  the  (£,ri)  plane.   In  order  to  transform  Eq.  (31a) 
it  is  necessary  to  determine  the  relationship  of  the  varia- 
tions of  the  derivatives  in  the  two  domains.   These  relation- 
ships can  be  derived  in  a  straightforward  manner  through  the 
use  of  the  chain  rule  as  follows : 

31 


ONi/3C) 


(3N._/3z)  (3z/3?)  +  (3Ni/3r)  C3r/3C) 


C34) 


and 


(3Ni/3n) 


(3Ni/3z) (3z/3n)  +  (3Ni/3r) (3r/3n) 


(35) 


Equations  (34)  and  (35)  can  be  combined  in  matrix  form  as 


3z 
3C 

3z 

3n 


3r~ 

3r 

3n_ 

< 

3z 

3N. 

l 

L  3r  J 

[ 

(36) 


Through  the  selection  of  the  type  element  to  be  used  in  the 
mesh,  N. (£,n)  is  a  known  function  [Ref.  16],  which  makes 
possible  the  computation  of  the  left-hand  side  vector  for 
any  point  within  the  element  boundaries.   Similarly,  by  tak- 
ing the  appropriate  derivatives  of  Eqs .  (27b)  and  (27c)  the 
2x2  matrix,  known  as  the  Jacobian  matrix  [J],  can  be  deter- 
mined.  It  follows  that  the  r  and  z  derivatives  of  the  shape/ 
weight  functions  can  be  determined  for  any  point  of  an 
element  from 


faO 

r\          ™ 

_i 

rsN.^ 

i 

"92 

or 

i 

3z 

3£ 

3£ 

3? 

< 

3N. 

3N. 

l 

3z 

3r 

i 

l^J 

.3n 

3ri- 

L 3n  J 

> 


37) 


An  examination  of  Eqs.  (27a)  through  (27c)  shows  that  once 
the  derivatives  of  the  shape/weight  functions  are  known  for 
a  point  then  it  is  a  simple  procedure  to  determine  the 
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derivatives  of  any  other  elemental  property  that  has  a  value 
specified  at  the  nodes. 

The  final  relationship  that  is  needed  for  the  trans- 
formation is  the  relationship  between  the  differential  change 
in  the  coordinate  directions  of  the  (r,z)  plane  and  the  (£,n) 
plane.   As  shown  by  Kaplan  [Ref.  19],  the  required  relation- 
ship is 


dzdr  =  I J  |d£dn 


(38) 


Equation  (31a)  can  now  be  transformed  for  integration  in  the 
(£,ri)  plane  to  the  form 


1   1 

/  _t 


W/I 


Nkkk([B]i[B]J   |j|d£dn 


(39) 


-1  -1 


where 


H  -  H"1 


3£ 
3N 

an 


and 


k  =  (1/prb) 


(40) 


(41) 


The  Gauss-Legendre  method  of  numerical  integration 
was  used  to  obtain  a  solution  to  Eq.  (39) .   It  was  selected 
because  its  determined  accuracy  was  easily  determined  and 
the  simple  summing  procedure  used  in  the  solution  could  be 
efficiently  coded.   A  one  dimensional  example  is  used  here 
to  illustrate  the  use  of  the  method. 
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The  definite  integral 


-1 
may  be  written  in  the  form 


1 
I    =       /  <frU)<U  (42) 


I    -   W,^   +   W2d>2    +   W34>3    +    .     .     .    +   w    (J>  (43) 

where      <j>.    =    $(£.) 

W.  =  Gaussian  weight  fuction  for  £. 
The  values  of  the  points,  called  abscissas,  and  their  cor- 
responding weighting  function  values  are  catalogued  for  use. 
The  number  of  points  to  be  used  is  determined  by  the  order 
of  the  function  to  be  approximated.   In  general,  a  polynomial 
of  (2n  -  1)  is  integrated  exactly  by  the  use  of  n  Gauss 
points.   In  two  dimensions  the  Gauss  method  can  be  written  as 

1   1 

I  =   /   /  <t>U,n)d£dn  (44) 

-1  -1 

which  can  be  written  as 

n  m 
I  a  I    I   W.W.^Ui/TU)  (45) 

i  j     J       J 

Equation  (39)  can  now  be  written  in  a  form  that  can  be  coded 
for  solution  by  the  computer  as 

k^  ■  II  WkW£  I    Nmkm([B]T[B])  |  J  |  (46) 


^    k  I 


m 
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The  scheme  used  in  the  program  is  a  two  dimensional,  three- 
point  Gauss  integration.   A  detailed  description  of  the 

T 
evaluation  of  [B]  [B]  and  the  method  used  to  obtain  k   is 

m 

contained  in  the  description  of  subroutine  STIFF. 
2 .   Right-hand  Side  Vector  Evaluation 

In  Section  C  the  following  relationship  for  f  was 
derived: 

fe  =  /  N.  f(r,z)  dfi  (31b) 

1    E   X 

By  using  the  techniques  of  Section  Dl,  Eq.  (31b)  can  be  re- 
placed by 

«;  - 1 1  vk  i  "t  i  Viiji  <47' 

A  more  detailed  description  of  the  specific  methods  used  to 
solve  Eq.  (47)  is  contained  in  the  description  of  subroutine 
FCAL. 


35 


IV.   DESCRIPTION  OF  PROGRAM  MESHGEN 

A.   MAIN  PROGRAM  DESCRIPTION 

MESHGEN  was  developed  in  order  that  the  required  inputs 
for  the  program  TURBO  could  be  generated  in  a  fast,  accurate, 
and  conceptually  correct  manner.   The  program  generates  an 
eight-node  isoparametric  element  mesh,  computes  the  related 
connectivity  matrix,  defines  the  type  of  region  enclosed  by 
each  element,  computes  the  tangential  blockage  factor  and  an 
estimate  of  the  stream  function  for  each  node  in  the  mesh, 
and  computes  the  thermodynamic  conditions  and  velocity  at 
the  inlet.   The  inputs  required  to  operate  the  program  are 
the  mass  flow  rate,  total  temperature,  and  total  pressure  at 
the  inlet,  the  blading  and  machine  geometries,  RPM,  Cp ,  y,  R, 
and  scaling  constants  for  the  plot  of  the  mesh.   The  blading 
geometries  must  be  coded  in  the  program  as  a  subroutine  that 
uses  approximations  or  design  information  to  express  the 
blade  variables  as  functions  of  radius.   The  user  provides 
the  other  information  in  response  to  interactive  prompts. 
The  program  has  two  modes  of  operation,  one  which  generates 
a  complete  mesh  and  ail  of  the  associated  information  and 
another  which  uses  a  previously  generated  mesh  to  compute  the 
changes  in  specific  arrays  that  result  from  a  change  in  the 
inlet  conditions. 
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The  program  is  completely  general  and  may  be  used  for 
either  single-stage  axial  compressor  or  turbine,  and,  with 
very  minor  modifications,  can  be  expanded  for  use  with  multi- 
stage machines.   The  mesh  size  that  can  be  generated  by  the 
program  is  limited  only  by  computer  storage  considerations. 
To  use  the  program  for  another  machine,  the  user  is  required 
to  replace  subroutine  TASK1  with  a  subroutine  that  can  com- 
pute the  tangential  blockage  factor,  b,  for  the  desired 
blading.   The  functioning  of  the  program  and  its  subroutines 
for  both  modes  of  operation  is  described  in  the  section  B. 
The  program's  algorithm  in  outline  form  is  as  follows: 
Algorithm: 

Determine  the  value  of  the  appropriate  operating  condi- 
tions and  whether  a  new  mesh  is  desired  (Subroutine 
INIT1) . 

Obtain  the  coordinates  of  the  super  element  corners  and 
a  description  of  the  division  of  the  super  elements  into 
the  final  mesh.   Compute  the  storage  allocation  parame- 
ters (Subroutine  INPUT)  . 

Compute  the  (r,z)  coordinates  for  all  nodes  in  the  mesh 
(Subroutine  TMESH) . 

Compute  the  connectivity  relationships  for  the  mesh  and 
determine  the  beginning  and  ending  node  numbers  for  the 
rotor  and  stator  (Subroutine  CONEC) . 

Compute  the  array  of  node  numbers  where  the  value  of  ty 
is  to  be  specified.   Compute  an  initial  estimate  of  the 
nodal  stream  function  distribution  and  call  subroutine 
FLOFCT  to  determine  the  inlet  conditions  (Subroutine 
INIT2)  . 

Compute  the  nodal  tangential  blockage  factor,  b,  for  the 
rotor  and  stator  nodes  (Subroutine  TASK1) . 

Place  the  computed  values  in  disk  storage  (Subroutine 
FILGEN) . 
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Plot  the  generated  mesh  on  the  Tektronix  613  terminal  for 
inspection  (Subroutine  MPLOT) . 

END 

B.   SUBROUTINE  DESCRIPTIONS 
1.   Subroutine  INIT1 

Subroutine  INIT1  obtains  the  value  of  thermodynamic 
variables  and  plotting  parameters  that  are  required  for  the 
program  in  either  mode  of  operation.   The  user  is  required 
to  provide  the  values  of  the  mass  flow  (lbm/sec) ,  total  tem- 
perature (°R),  and  total  pressure  (psia) ,  ratio  of  specific 
heats  (y)  /  <?as  constant  (ft-lbf /lbm-°R)  ,  and  the  specific 
heat  at  constant  pressure  (BTU/lbm-°R) .   The  scaling  con- 
stants are  convenient  values  of  r  and  z  used  to  frame  the 
plot  of  the  mesh.   If  a  new  mesh  is  not  desired,  the  program 
exits  the  subroutine. 

Subroutine  INIT1  determines  if  a  new  mesh  is  to  be 
generated  by  the  response  of  the  user  to  an  interactive  ques- 
tion.  If  a  mesh  is  to  be  generated,  the  subroutine  obtains 
some  preliminary  information  about  the  flow  region.   Figure  5 
shows  how  the  user  must  first  divide  the  flow  region  into  a 
coarse  mesh  known  as  super  elements,  recording  the  (z,r)  co- 
ordinates of  the  corner  points.   The  minimum  number  of  super 
elements  for  a  single-stage  compressor  is  five  so  that  the 
three  duct  regions,  the  rotor,  and  the  stator  may  be  repre- 
sented.  The  maximum  number  of  super  elements  and  the  subse- 
quent division  into  mesh  elements  is  limited  only  by  the 
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storage  limitations  of  the  machine.   In  practice,  the  maxi- 
mum number  of  elements  is  limited  by  the  number  of  equations 
that  may  be  solved  by  the  program  TURBO.   It  is  also  limited 
by  the  fact  that  only  one  super  element  may  be  used  to  de- 
scribe a  rotor  or  duct  region  and  that  the  super  elements  for 
these  regions  may  only  be  further  subdivided  into  a  single 
column  of  elements.   The  latter  restrictions  are  for  compati- 
bility with  the  computation  procedures  used  in  the  program 
TURBO.   A  decision  must  then  be  reached  on  what  subdivision 
of  the  super  elements  will  provide  a  mesh  that  is  sufficient- 
ly fine  to  yield  accurate  results  efficiently.   Once  the  flow 
region  has  been  divided  into  super  elements  and  a  determina- 
tion as  to  the  total  number  of  rows  and  columns  of  mesh 
elements  has  been  made,  the  user  can  input  the  appropriate 
values  in  response  to  the  prompts  provided  by  the  program. 
2 .   Subroutine  INPUT 

Subroutine  INPUT  uses  interactive  prompts  to  obtain 
a  description  of  the  turbomachine ' s  flow  passage  geometry  and 
the  desired  mesh  characteristics.   The  user  must  provide  the 
program  with  the  coordinate  values  of  the  super  element  nodes 
as  shown  in  Fig.  5.   The  values  are  entered  as  nodal  pairs  on 
a  station-by-station  basis.   The  first  (z,r)  coordinate 
entered  is  the  node  on  the  shroud  and  the  second  lies  on  the 
hub.   The  program  then  asks  the  user  to  identify  the  type  of 
region  enclosed  in  each  super  element  and  into  how  many 
columns  each  super  element  is  to  be  divided. 
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Enough  information  is  now  available  for  the  program 
to  compute  and  store  the  information  required  for  the  program 
TURBO.   Subroutine  INPUT  stores  the  responses  to  the  inter- 
active prompts,  determines  the  values  of  the  storage  location 
pointers,  and  determines  if  any  storage  limitation  has  been 
exceeded.   If  any  storage  limitation  is  exceeded,  the  sub- 
routine calls  the  appropriate  error  subroutine  to  halt  execu- 
tion.  The  interactive  portion  of  the  subroutine  is  omitted 
if  a  new  mesh  is  not  desired.   However,  the  values  of  the 
pointers  are  calculated  and  storage  requirements  are  evalu- 
ated as  before  .   A  listing  of  the  pointers  and  the  corres- 
ponding variables  is  given  in  Appendix  A. 
3.   Subroutine  TMESH 

Subroutine  TMESH  computes  the  nodal  coordinate  values 
from  the  information  obtained  in  subroutines  INIT1  and  INPUT. 
The  subroutine  uses  linear  interpolation  in  the  axial  direc- 
tion and  a  quadratic  scheme  in  the  radial  direction.   The 
radial  interpolation  scheme  maintains  the  difference  in  the 
squares  of  the  radius  of  the  nodes  as  a  constant.   This  al- 
lows the  assumption  of  equal  mass  flow  between  the  nodes  for 
uniform  axial  velocity  which  is  used  to  determine  the  initial 
estimate  of  the  nodal  stream  function  distribution.   The 
nodes  are  numbered  with  the  assumption  that  the  fluid  flow 
is  from  left-to-right  in  the  mesh  and  that  the  number  of 
columns  of  elements  is  greater  than  or  equal  to  the  number 
of  rows  of  elements.   The  node  at  the  inlet  shroud  is  labeled 
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1  and  the  node  at  the  outlet  hub  is  labeled  n  for  an  n  node 
mesh.   The  numbering  proceeds  on  a  column-by-column  basis 
from  top-to-bottom.   The  total  number  of  rows,  columns,  and 
mesh  elements  is  displayed  to  the  user.   The  mesh  computa- 
tions are  omitted  if  a  new  mesh  is  not  created  and  elemental 
count  information  is  displayed  as  before. 

4.  Subroutine  CONEC 

Subroutine  CONEC  generates  the  connectivity  matrix 
for  the  mesh.   The  connectivity  matrix  is  used  to  keep  track 
of  which  nodes  are  assigned  to  which  elements  and  the  ar- 
rangement of  the  assigned  nodes  within  the  element.   The  con- 
nectivity relationships  for  a  three  element  stack  is  shown 
in  Fig.  3.   Additionally,  the  subroutine  determines  the  first 
and  last  nodes  of  the  rotor  and  stator . 

5.  Subroutine  INIT2 

Subroutine  INIT2  stores  the  node  numbers  for  nodes 
where  the  value  of  ifi  is  specified  as  a  known  quantity.   The 
array  is  used  in  the  program  TURBO  to  apply  the  boundary 
conditions.   The  array  is  not  computed  if  a  new  mesh  is  not 
desired.   For  either  mode  of  operation,  subroutine  INIT2 
computes  the  values  of  the  inlet  thermodynamic  variables, 
the  inlet  axial  velocity,  and  an  initial  estimate  of  the 
nodal  stream  function  distribution.   Subroutine  FLOFCT  is 
used  to  calculate  the  inlet  conditions  and  is  described  in 
the  next  section.   The  initial  stream  function  is  computed 
from  the  boundary  conditions  at  the  shroud  and  hub.   Along 
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the  shroud,  ty    is  specified  to  be  equal  to  (m/2iT)  and  along 
the  hub  to  be  zero.   The  value  of  ty   along  the  inlet  is  de- 
termined by  a  linear  interpolation  because  of  the  quadratic 
node  spacing  in  the  radial  direction.   The  remaining  nodal 
values  of  ^  are  obtained  by  an  assumption  that  ip  is  a  con- 
stant along  the  streamwise  boundaries  of  the  elements.   The 
assumption  is  obviously  in  error,  but  it  observes  the  boun- 
dary conditions  and  provides  a  reasonable  first  estimate  to 
begin  the  iteration  scheme  used  in  the  program  TURBO. 
6 .   Subroutine  FLOFCT 

Subroutine  FLOFCT  computes  the  inlet  conditions  for 
a  passage  with  a  specified  geometry,  mass  flow  rate,  total 
temperature,  total  pressure,  and  an  assumed  uniform  inlet 
velocity.   The  method  followed  is  the  "total  flow  function" 
formulation  proposed  by  Shreeve  [Ref.  20].   The  total  flow 
function  is  defined  as  the  ratio  of  the  mass  flux  to  the 
limiting  or  stagnation  mass  flux.   The  following  definitions 
and  equations  are  required  for  the  method: 

Vt  =  [2H]0'5  (48) 

X  =  V/V  (49) 

T/T   =  1  -  X2  (50) 
Y 


9  (Y-l) 
p/pt  =  (1  -  Xz)  (51) 


,  (Y-D 
p/pt  =  (1  -  XZ)  (52) 
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From  the  definition  of  the  total  flow  function,  <$> ,  it  follows 
that 

1 
4>  =  pV/ptVt  =  X(l  -  Xz)  (53) 

The  value  of  0  at  the  inlet  can  be  calculated  at  the  inlet 
from  the  assumed  uniform  conditions  by  the  expression 

(J>   =  m/  (PtVfcA)  (54) 

The  value  of  X  at  the  inlet  is  found  through  the  following 
Newtonian  iteration: 

4>1  =  m/  (ptVtA)  (54) 

Assume  X  =  0.1  to  assure  the  selection  of  the  subsonic  root. 

i 

2    Y-l 
Calculate:  <$>    =   X(l    -    X    )  (53) 

and  d<j)/dX   =    (1/X  -  2X/  [  (y  -  1)  (1  -  X2)  ]  } 

Test  |  4>,    -    (j>  |     <    z 

If  the  test  fails  then  calculate 

X  =  X  +  ($-  -  cj>)  (d<J>/dX) 

and  recalculate  <$>    until  convergence  is  reached.   Once  con- 
vergence is  reached  the  inlet  conditions  are  computed  by 
equations  (50)  through  (52). 
7.   Subroutine  TASK1 

Subroutine  TASK1  computes  the  nodal  tangential  block- 
age factor  for  the  blading  of  the  NASA  TASK1  transonic  com- 
pressor.  The  value  of  the  blockage  factor  is  determined  by 
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b  =  1  -  t/s  (12a) 

The  values  of  t  and  s  are  obtained  by  approximations  to  the 
known  blading  geometry  that  are  expressed  as  functions  of 
radius.   The  maximum  thickness  of  the  blade  is  artificially 
defined  to  be  at  the  mid-point  of  the  chordline  to  ensure 
that  the  factor  is  accounted  for  in  the  calculations  in  the 
program  TURBO.   This  artificiality  could  easily  be  removed 
through  a  modification  to  the  axial  interpolation  scheme  used 
in  rotor  and  stator  super  elements.   Subroutine  TASK1  is  the 
only  machine  dependent  subroutine  in  use  in  the  program  and 
would  need  to  be  replaced  with  an  appropriate  substitute  in 
order  for  the  program  to  be  used  on  another  machine.   The  use 
of  the  subroutine  is  omitted  if  the  user  does  not  desire  a 
new  mesh. 

8 .  Subroutine  FILGEN 

Subroutine  FILGEN  places  the  computed  mesh  parameters 
on  disk  storage  for  use  in  the  program  TURBO.   If  the  limited 
mode  of  operation  was  selected  by  the  user,  the  subroutine 
only  updates  the  values  of  the  parameters  that  change  for  a 
new  inlet  condition.   A  listing  of  the  output  parameters  and 
their  corresponding  storage  location  is  given  in  Appendix  B. 

9 .  Subroutine  MFLOT 

Subroutine  MPLOT  provides  an  on-line  plot  of  the  com- 
puted mesh  on  the  Tektonix  618  graphics  terminal.   Figure  6 
shows  the  6  3  element,  222  node  mesh  used  in  the  computations 
of  the  test  cases.   The  subroutine  displayed  the  mesh  through 
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direct  calls  to  the  subroutines  of  the  library  plotting 

package,  GRAFF.   The  subroutine's  algorithm  is  as  follows: 

Algorithm: 

Form  two  Real*4  arrays  from  the  information  in  the  r  co- 
ordinate and  the  z  coordinate  arrays  for  plotting 
compatibility . 

Sort  the  arrays  and  plot  the  streamwise  boundaries  of  the 
mesh  elements. 

Sort  the  arrays  and  plot  the  transverse  boundaries  of  the 
mesh  elements. 

END 

10 .  Subroutine  SRR1 

Subroutine  ERR1  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Real*8  variables  has  been  exceeded. 
The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.   The 
user  response  would  be  to  increase  the  value  of  LIMR  if  pos- 
sible or  reduce  the  size  of  the  mesh. 

11 .  Subroutine  ERR2 

Subroutine  ERR2  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Real*4  variables  has  been  exceeded. 
The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.   The 
user  response  would  be  to  increase  the  value  of  LIM4  if  pos- 
sible or  reduce  the  size  of  the  mesh. 
12  .   Subroutine  ERR3 

Subroutine  ERR3  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Integer*4  variables  has  been  exceeded. 
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The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.   The 
user  response  would  be  to  increase  the  value  of  LI MI  if  pos- 
sible or  reduce  the  size  of  the  mesh. 
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V.   DESCRIPTION  OF  PROGRAM  TURBO 

Program  TURBO  solves  the  quasi-harmonic  stream  function 
radial  equilibrium  equation  for  flow  in  an  axial  compressor. 
The  program  uses  the  information  computed  by  the  program 
MESHGEN  to  calculate  the  desired  thermodynamic  information 
at  all  nodal  points  and  displays  selected  values  on  a  graph- 
ics terminal  for  inspection. 

A.   MAIN  PROGRAM  DESCRIPTION 

The  program  obtains  a  solution  of  the  equation 

[K]{<H  =  {f}  (32) 

An  iterative  scheme  was  adopted  for  this  nonlinear  problem, 
whereby  an  estimate  of  the  stream  function  distribution  is 
used  to  calculate  values  of  the  velocity  components  and 
thermodynamic  variables  at  the  nodes  of  the  mesh.   These 
computed  values  are  then  substituted  into  Eq .  (32)  and  a  new 
value  of  the  stream  function  distribution  is  calculated.   The 
estimate  of  the  distribution  is  compared  to  the  calculated 
value  to  determine  if  the  solution  has  reached  convergence 
according  to  the  following  criterion: 


e  > 


n    7  n+1 


7-  n+1 


(47) 
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where    ip .   =  estimate  of  ip  at  node  i 

\b  .n        =  solution  for  '!>  at  node  i 

1 

If  the  maximum  difference  for  all  nodes  is  less  than  z,  the 
procedure  is  terminated.  If  the  maximum  difference  exceeds 
some  specified  value  of  e ,  the  new  estimate  of  \\»  to  be  used 
for  the  next  iteration  is  determined  using 


* 


=   \b .      +   a  U> .     -  \i).  48 

i      ri      L  i      ri 


where  iii .     =  new  estimate  of  'p  for  the  next  iteration 

i 

a  =  under  relaxation  factor  required  for  conver- 
gence because  of  the  strong  nonlinear  proper- 
ties of  Eq.  (32) . 

The  process  of  constructing  the  inputs  required  for  Eq . 
(32)  is  repeated  until  convergence  is  obtained.   The  details 
of  calculating  the  inputs  and  constructing  the  stiffness 
matrix  and  the  right-hand  side  vector  are  contained  in  de- 
scriptions of  the  program's  subroutines. 

The  program's  algorithm  follows  in  outline  form: 

Obtain  the  computational  constants  (SUBROUTINE  RDATA) . 

Determine  the  values  of  the  pointers  used  to  partition  the 
storage  arrays  (SUBROUTINE  INIT1) . 

Set  the  initial  values  for  all  storage  locations  to  0.0  or 
0  as  appropriate  (SUBROUTINE  ZEROI) . 

Recall  from  storage  the  externally  computed  input  values 
and  initialize  the  inlet  conditions  (SUBROUTINE  INPUT) . 

Calculate  a  velocity  and  thermodynamic  variable  distribu- 
tion based  on  the  assumed  stream  function  distribution  and 
the  inlet  conditions  (SUBROUTINE  DIST) . 
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From  the  distributions  obtained  in  DIST,  calculate  the 
right-hand  side  vector  {f}  (SUBROUTINE  FCAL) . 

Using  the  density  and  blockage  factor  distributions,  form 
the  stiffness  matrix  [K]  (SUBROUTINE  STIFF) . 

Solve  the  system  of  linear  equations  to  obtain  a  new  stream 
function  distribution  (SUBROUTINE  DSIMQ) . 

Place  the  solution  vector  in  its  proper  storage  location 
(SUBROUTINE  REPLA) . 

Compare  the  original  stream  function  distribution  to  the 
solution  vector  to  determine  the  maximum  difference  in  the 
distributions  for  all  nodes  (SUBROUTINE  TEST) . 

Determine  if  the  convergence  criterion  has  been  satisfied. 

If  convergence  has  not  been  obtained,  perform  the  relaxa- 
tion iteration  to  update  the  estimate  of  the  stream  func- 
tion distribution  (SUBROUTINE  RELAX) ,  prepare  for  another 
cycle  (SUBROUTINE  NOCON) ,  and  then  return  to  SUBROUTINE 
DIST  for  further  calculations. 

If  the  convergence  criterion  has  been  satisfied,  print  the 
results  (SUBROUTINE  OUTPUT)  and  display  selected  informa- 
tion on  the  graphics  terminal  (SUBROUTINE  MPLOT) . 

END 


B.   SUBROUTINE  DESCRIPTIONS 

Sections  1  through  23  provide  a  detailed  description  of 
the  subroutines  of  program  TURBO. 

1 .   Subroutine  RDATA 

Subroutine  RDATA  is  used  to  store  the  following  com- 
putational constants: 

(a)  Logical  Input/Output  variable  NREAD  and  NWRITE. 

(b)  Relaxation  factor. 

(c)  Limits  for  the  storage  arrays. 
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(d)  Three-point  Gaussian  abscissas  and  weighting  values. 

(e)  Constants  used  for  conversions  between  different  units. 

2.  Subroutine  INIT1 

Subroutine  INIT1  determines  the  values  of  the  point- 
ers used  to  partition  the  Real*8,  Real*4/  and  Integer*4  ar- 
rays and  determines  whether  the  storage  limitations  for  any 
of  the  arrays  has  been  exceeded.   If  the  storage  limitations 
have  been  exceeded  the  subroutine  will  halt  execution  by 
calling  the  appropriate  error  subroutine.   A  listing  of  the 
pointers  and  their  corresponding  array  names  is  contained  in 
Appendix  C. 

3.  Subroutine  ZEROI 

Subroutine  ZEROI  sets  the  initial  value  of  all  arrays 
equal  to  0.0  or  0  as  appropriate. 

4.  Subroutine  INPUT 

Subroutine  INPUT  retrieves  required  input  information 
from  its  corresponding  disk  storage  location.   The  informa- 
tion must  be  placed  in  storage  before  running  program  TURBO. 
The  usual  method  of  generating  the  information  and  placing 
it  in  storage  is  through  the  use  of  the  program  MESHGEN. 

Subroutine  INPUT  also  initializes  the  inlet  condi- 
tions to  their  proper  values,  and  modifies  the  nodal  blockage 
factors  to  account  for  end-wall  boundary  layer  effects.   No 
attempt  was  made  to  include  a  global  method  for  calculating 
the  blockage  factors;  rather,  a  method  similar  to  the  one 
used  by  Hirsch  and  Warzee  [Ref.  4]  was  used.   The  full  method 
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used  by  Hirsch  and  Warzee  was  to  artificially  reduce  the 
size  of  the  flow  passage  by  reducing  the  boundaries  of  the 
mesh,  followed  by  the  application  of  a  general  blockage  fac- 
tor to  the  nodes  of  the  mesh.   In  the  program  TURBO,  no  mesh 
modifications  are  made.   The  procedure  followed  was  to  apply 
a  general  blockage  factor  to  all  nodes,  followed  by  the  ap- 
plication of  an  additional  blockage  factor  to  nodes  in  the 
outer  elements  in  the  rotor,  stator,  and  the  passage  in  be- 
tween.  Though  reasonable  results  were  obtained  by  this 
method,  the  handling  of  the  end-wall  boundary  layers  remains 
the  most  obvious  weakness  in  the  code.   This  is  addressed 
specifically  in  section  VII. 
5 .   Subroutine  DIST 

Subroutine  DIST  calculates  the  distributions  of 
velocity,  density,  temperature,  pressure,  fluid  flow  angles, 
entropy,  and  enthalpy  using  the  known  blade  and  machine 
geometry,  inlet  conditions,  and  the  assumed  distribution  of 
the  stream  function.   Properties  of  nodes  at  the  mid-line 
of  the  rotor  or  stator  blades  were  assumed  to  have  a  value 
equal  to  the  average  of  the  inlet  and  exit  conditions  of  the 
blade.   The  elemental  calculations  are  accomplished  through 
the  control  of  subroutines  SLINE,  DUCT,  ROTO,  and  STAT. 

The  following  is  the  subroutine  DIST's  algorithm  in 
outline  form: 

For  each  element  in  the  mesh. 

Determine  type  element  for  appropriate  computations. 
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Duct  Elements 

For  each  node  at  stations  2  and  3: 

Determine  the  location  of  the  streamline  and  thermo- 
dynamic conditions  at  station  one  (Subroutine  SLINE) . 

(If  the  element  is  along  the  machine  exit  plane,  en- 
sure that  (3i|;/3z)  =  0.) 

Compute  the  thermodynamic  conditions  (Subroutine  DUCT) . 

Assign  the  appropriate  values  to  the  proper  storage 
location . 

Rotor  Elements 

For  each  node  at  stations  1: 

Determine  the  location  of  the  streamline  at  station  3 
and  the  3^/3z  and  the  3^/3r  at  stations  1  and  3  (Sub- 
routine SLINE) . 

Determine  the  inlet  and  outlet  relative  flow  angles  and 
the  outlet  absolute  flow  angle. 

Compute  the  total-to-total  pressure  ratio  and  the  adia- 
batic  efficiency  for  the  streamline  (Subroutine  ROTO) . 

Assign  the  appropriate  values  to  the  proper  storage 
location . 

For  each  node  at  stations  2: 

Determine  the  location  of  the  streamline  and  the  ther- 
modynamic conditions  and  the  3'^/3z.  and  the  3ip/3r  at 
stations  1  (Subroutine  SLINE) . 

Determine  the  location  of  the  streamline  and  the  9ip/3z 
and  the  3^/3r  at  station  3  (Subroutine  SLINE). 

Determine  the  inlet  and  outlet  relative  flow  angles  and 
the  outlet  absolute  flow  angle  and  the  relative  devia- 
tion angle. 

Compute  the  thermodynamic  conditions  at  station  3  (Sub- 
routine ROTO) . 

Compute  the  value  of  all  properties  for  the  node  as 
being  the  average  of  the  values  at  station  1  and  sta- 
tion 3. 
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Assign  the  appropriate  values  to  the  proper  storage 
location. 

For  each  node  at  stations  3: 

Determine  the  location  of  the  streamline  and  thermo- 
dynamic conditions  at  station  1  and  the  value  of  3ip/ 3 z 
and  3^/3r  at  stations  1  and  3  (Subroutine  SLINE) . 

Determine  the  inlet  and  outlet  relative  flow  angles  and 
the  outlet  absolute  flow  angle  and  compute  the  thermo- 
dynamic conditions  (Subroutine  ROTO) . 

Assign  the  appropriate  values  to  the  proper  storage 
location. 

Stator  Elements 

The  stator  algorithm  is  the  same  as  the  rotor  algorithm 
except  r.he  outlet  absolute  flow  angle  is  the  only  angle 
calculated.   The  inlet  absolute  flow  angle  is  determined 
through  interpolation. 

6 .   Subroutine  SLINE 

In  order  to  understand  the  functioning  of  this  sub- 
routine and  others  to  follow,  one  must  refer  to  the  nomen- 
clature used  to  describe  the  eight-node  element.   Figures  2 
and  3  show  the  nomenclature  clearly  and  Table  1  demonstrates 
the  connectivity.   All  of  the  calculations  in  the  program  for 
the  distributions  of  velocity,  flow  angles,  and  thermody- 
namic properties  are  founded  on  the  assumption  that  the 
points  in  question  lie  on  the  same  stream  surface.   Thus  the 
objective  of  the  subroutine  is  to  obtain  the  location  of  a 
given  value  of  the  stream  function  at  a  specified  station  in 
the  flow  region.   The  location  of  the  streamline  is  required 
in  order  to  compute  the  variables  used  in  [K]  and  {f}. 
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Through  the  application  of  the  boundary  conditions, 
the  nodes  along  the  shroud  are  defined  to  lie  on  one  stream 
surface  and  the  nodes  along  the  hub  are  on  another.   It  is 
possible  for  all  other  nodes  in  the  mesh  to  be  on  different 
stream  surfaces.   For  these  nodes  an  interpolation  scheme 
must  be  followed  to  find  the  (c,,r\)    coordinates  of  a  specified 
stream  surface  at  a  given  station  in  the  mesh. 

The  solution  sequence  that  the  program  follows  starts 
at  the  top  element  of  the  first  column  of  elements  in  the 
mesh  and  solves  the  thermodynamic  and  velocity  conditions 
for  all  nodes  in  the  element  using  the  assumed  stream  func- 
tion distribution  and  the  specified  inlet  conditions.   When 
the  calculations  for  the  first  element  are  complete,  the 
program  continues  down  the  column  until  the  calculations  are 
complete  for  the  element  along  the  hub.   The  program  then 
sequences  to  the  top  element  for  the  next  column  and  con- 
tinues until  the  calculations  are  complete  for  the  last  ele- 
ment in  the  mesh.   In  this  sequence  it  is  always  possible 
to  calculate  the  conditions  at  station  1  of  an  element  for 
any  interim  nodal  values  of  the  stream  function. 

The  process  will  be  described  by  way  of  an  example 
for  one  node  as  shown  in  Fig.  3. 

Example:   Find  the  (5,n)  coordinates  of  the  streamline  that 
passes  through  node  7  of  element  1,  Node  (1,7) . 

From  the  connectivity  relationships  it  is  known  that 
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(Node  (1,7))  =  (14) 

The  value  of  (14)  is  known  and  the  search  is  begun  to  find 
two  nodal  vaules  of  £  at  station  1  that  bracket  the  desired 
value,  (14).   The  program  first  tests  to  see  of  (Node  (1,7)) 
is  greater  than  (Node  (1,5))  .   In  this  case  it  is  not  and  the 
program  would  automatically  shift  and  test  to  see  of 
(Node  (1,7))  is  greater  than  (Node  (2,5)).   In  this  example 
the  value  is  larger  and  the  same  test  would  be  applied  to 
(node  (2,4)).   Again  the  answer  would  be  true.   The  program 
would  then  test  to  see  if  the  value  of  (Node  (2,3))  were 
larger  than  (Node  (1,7)).   The  answer  being  true  would  sig- 
nal the  program  that  the  location  of  the  streamline  had  been 
bracketed  and  a  half-interval  technique  would  be  applied  to 
find  the  location.   As  shown  in  Fig.  4,  the  value  of  c,    for 
all  locations  along  station  1  is  -1.   This  fact  is  important 
for  two  reasons.   One,  with  t,    known  the  program  is  only  re- 
quired to  iterate  on  n  to  obtain  convergence.   Two,  the 
Kronecker  delta  property  of  the  shape  functions  means  that 
only  the  shape  functions  at  station  1  have  nonzero  values 
[Ref.  16].   For  the  half  interval  method,  the  program  uses 
the  average  n  of  the  most  recent  bracketing  as  its  estimate 
for  n.   In  this  example  the  first  estimate  of  n  is  equal  to 
0.5  and  the  solution  for  ip  at  (-1.,  0.5)  can  be  written  as 

'M-l.,0.5)  =  N3(-l.  ,0.5)^3  +  N4  (-1.  ,0.5)<{j4  +  N5  (-1  .  ,  0  .  5)  ^ 
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The  solution  is  then  compared  to  ip  (Node  (1.7))  to  determine 
if  the  difference  is  less  than  some  e.   If  the  difference 
exceeds  e,  the  new  estimate  for  n  becomes  0.25  or  0.75  de- 
pending on  whether  the  solution  is  larger  than  or  less  than 
the  value  of  ^ (Node  (1,7)).   The  process  is  continued  until 
convergence  is  reached.   Once  E,   and  r\    for  the  streamline 
location  at  station  1  are  known,  all  of  the  properties  for 
station  1  can  be  determined.   (The  same  method  is  used  to 
find  the  location  of  the  streamline  at  station  3  for  rotor 
and  stator  elements.)   Having  determined  the  coordinates 
of  streamlines  at  all  desired  locations  it  is  possible  to 
calculate  the  required  (3N./3r)  and  (3N./3z).   The  computed 
inlet  and  exit  coordinates  and  conditions  are  then  passed 
to  subroutine  DIST  for  use  in  subroutines  DUCT,  ROTO,  and 
STAT  as  appropriate  for  the  calculation  of  the  conditions 
at  Node  (1,7) . 

The  following  is  the  subroutine's  algorithm  in  out- 
line form: 

Duct  Element 

If  the  node  being  investigated  is  on  station  one,  exit  the 
subroutine . 

For  stations  two  and  three,  determine  the  streamline  co- 
ordinates and  the  thermodynamic  conditions  at  station  one 
and  compute  the  3^/3z  and  3iJ;/3r  at  the  node.   Exit  the 
subroutine . 

Rotor/Stator  Element 

If  the  node  being  investigated  is  on  station  one,  set  all 
inlet  thermodynamic  variables  equal  to  the  corresponding 
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nodal  value  and  compute  the  3^/9z  and  the  3 ip /  3r  at  station 
three.   Exit  the  subroutine. 

For  station  two,  determine  the  streamline  coordinates  and 
the  thermodynamic  conditions  at  station  one  and  compute  the 
streamline  location  and  the  3ip/5z  and  the  3i|;/  3 r  at  station 
three.   Exit  the  subroutine. 

For  station  three,  determine  the  streamline  coordinates  and 
the  thermodynamic  conditions  at  station  one  and  compute  the 
B  ip  /  3  z  and  the  3^/9r  at  station  three.   Exit  the  subroutine. 

7.   Subroutine  DUCT 

Subroutine  DUCT  determines  the  values  of  temperature, 
pressure,  and  density  for  the  elemental  nodes  at  stations  two 
and  three.   An  iterative  procedure  is  used  with  the  knowledge 
that  angular  momentum  is  a  constant  in  a  duct.   The  initial 
estimate  of  the  velocity  at  station  1  is  made  using  the  com- 
puted values  of  3 ij; /  3 z ,  3<j;/3r,  r,  and  b  at  the  node  (Subrou- 
tine SLINE)  and  by  choosing  the  estimate  of  the  density  at 
the  node  to  be  equal  to  the  density  at  station  1.   The  fol- 
lowing sequence  of  calculations  is  repeated  until  convergence 
on  a  value  of  the  exit  velocity: 

0    5 
Vm2    =    (1/(p2r2b2n   *   [(3^/922)2    +     (3^r2)2] 

a2   =   tan-^fr^tana^/fr^)] 

T2    =   TT1    -     (Y-l)/2*(vm22(l  +  tan2a2))/(YRGc) 

P2    =    PT1(T2/TT1)**(Y/Y-D 
P2    =    P2/ (RT2) 

Vm2n   =    (l/(P2r2b2))   *  [w/3z>22    +    (3*/3r)22J 


Test    if 


V   _      -  V  ,      <    e 

m2n  m2 
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The  total  conditions  are  then  calculated  from  the  static 
conditions  and  the  computed  velocity. 
8 .   Subroutine  ROTO 

Subroutine  ROTO  calculates  the  change  in  the  relative 
flow  angles,  the  velocity,  and  the  thermodynamic  properties 
along  a  streamline  across  a  (compressor)  rotor  element.   The 
program  uses  the  conditions  at  station  one  and  the  location 
of  the  streamline  and  the  partial  derivatives  of  the  stream 
function  at  station  3,  all  of  which  were  calculated  in  sub- 
routine SLINE.   The  relationships  in  subroutine  ROTO  are 
derived  from  cascade  correlations  and  known  property  rela- 
tionships for  a  streamline  in  a  rotor. 

The  first  step  is  the  calculation  of  the  inlet  and 
exit  relative  flow  angles.   For  inlet  flow  without  swirl, 
the  relative  inlet  flow  angle  can  be  calculated  using 

S,  =  tarT^U./V  .  ) 

1  1   ml 

The  incidence  angle  is  calculated  using  the  known  blade 
geometry  and  inlet  angle,  since 

where  ic.  is  the  angle  formed  between  the  tangent  to  the  blade 
chordline  and  the  axial  direction.   In  order  to  calculate  the 
exit  relative  flow  angle  one  must  determine  the  deviation 
angle,  5.   The  program  uses  the  correlations  and  equations 
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derived  by  NASA  [Ref.  21].   The  specific  sequence  of  equa- 
tions, using  the  notation  of  Ref.  21,  is  as  follows: 

LC    '    L2V    =  f(M'r) 
^D  *    CKi)t(Ki,SH<i0,10  +  ^ 
*ref  =  i2D+(iC  "  l2D) 

52D=    C1^)t(1%)SHW0)10    +     (m/°b)     +     UC    "    i2DMd6/di)2D 
5C    "   52D    =    f(MR'r) 
5  ref   -«2D+l«C    "  5  2D  ) 

5    =6ref  +    (i   "   1refMd5/di,2D 

B2   -   B1   -   <J>   -i  +     6 

The  expressions  used  to  approximate  the  NASA  correlation 
curves  were  those  obtained  by  Crouse  of  NASA  lewis  and  were 
provided  to  the  author  by  Okiishi  [Ref.  22]. 

When  the  inlet  conditions  and  relative  flow  angles 
are  known  it  is  possible  to  determine  the  conditions  at  the 
rotor  element  exit.   The  initial  exit  velocity  is  obtained 
in  the  same  way  as  in  subroutine  DUCT.   The  following  se- 
quence of  equations  is  solved  iteratively  until  convergence 
for  the  exit  velocity  is  reached: 

a2  =  tan"1[(u3r2  -  Vm2  tan  ^)  /Vm2] 

D  =  1  -  (W2/W1)  +  (r1Wul  -  r2Wu2)/(2   V^r) 

oj  =  curve  fit  to  oj(D,cos  8,  o) 
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2    2      2 

T-n  =  T01  +  a)  (r„   -  r.  )  /constant 
El     Rl         2      1 


pei  "  pt1(te1/tt1)My/y-D 

PR1  "  PT1(TR1/TT1)*(Y/Y-1) 


PE2  "  PE1  "  5<PR1  "  Pl» 


W2  =  Vm2/cos  B2 

2 
T2  =  TE1  ~  W2  /constant 


P2  =  PE2(T2/TEl)*(Y/Y"1) 


P2  =  P2/(RT2) 
Vmin  =  (l/(P2r2b2))*[oiP/8z)22  +  0^/3r)22] 


0.5 


Test  if  v    -  V  -   <  e 

mm    m2  | 

VJhen  convergence  is  reached  the  total  conditions  are  calcu- 
lated from  the  static  conditions  and  the  computed  velocity. 
The  value  of  the  entropy  change  is  calculated  by: 

S  =  R  ln(PT2/PT1)  *  constant 

9 .   Subroutine  STAT 

Subroutine  STAT  calculates  the  stator  element  exit 
absolute  flow  angle  and  thermodynamic  conditions  using  the 
knowledge  that  the  total  enthalpy  is  a  constant  across  the 
stator.   The  initial  estimate  of  the  exit  velocity  is  ob- 
tained in  the  same  way  as  in  subroutine  DUCT.   The  following 
sequence  of  equations  is  used  until  convergence  for  the  exit 
velocity  is  reached: 
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Vl  "  [Vml2(1  +  tan20l)] 


0.5 


D  =  1  -  (V2/Vl)  +  (rlVul  -  r2Vu2)/(2aVr) 

ca  =  curve  fit  to  oj(D,cos  3,  o) 
PT2  =  pt1  -  5(PT1  -  px) 

T2  =  TT1  "  (Y_1) /2  *  (Vm22 (1  +  tan2  2] } ' (Y  R  G) 
P2  =  PT2(T2/TT2)**(Y/Y"1) 


o2  =  P2/(RT2) 

r  2  2i0-5 

Vmin  =  (l/(P2r2b2n*  L('^/3Z)2   +  (3'^/3r)2  J 


Test  if 


V  .   -  V  -   <  e 

min    mz 


When  convergence  is  reached  the  total  conditions  are  calcu- 
lated from  the  static  conditions  and  the  computed  velocity. 
The  value  of  the  entropy  change  is  calculated  by  the  same 
method  used  by  subroutine  ROTO. 
10 .   Subroutine  FCAL 

Subroutine  FCAL  uses  the  previously  computed  distri- 
butions of  total  temperature,  entropy,  enthalpy,  axial  velo- 
city, and  tangential  velocity  to  compute  the  right-hand  side 
vector  for  the  global  system  of  equations.   In  the  absolute 
frame  of  reference,  f(r,z)  can  be  expressed  in  the  form 

f(r,z)  =  (1/VZ)  TOs/3r)  -  3H/3r  +  (Vu/r)  (3  (rVu)/3r)     (20) 

The  value  of  f(r,z)  within  an  element  is  determined  using 
the  following  relationships: 
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n 


n 


T(z,r)  =  I   NjL(C,n)Ti 

i 

n 
s(z,r)  =  J  N. (£,n) si 

i 

n 
V(z,r)  =  I  Ni(C,n)Vi 


H(z,r)  =  I   Ni(C,n)Hi 
i 

n 
V(z,r)  =  J  Ni(5,n)V. 

i 

n 
r  =  £  Ni(C,n)ri 


where  the  value  of  N.  (£,n)  is  determined  by  the  value  of  £ 
and  n  for  a  specified  Gaussian  integration  point  within  the 
element.   The  required  partial  derivatives  are  found  in  a 
simple  and  direct  way.   To  illustrate,  the  (3H/3r)  is  de- 
rived as  follows: 

n 


H(z,r)  =    N.H. 
v      l  l 


(3H/3r)  =  t     (3N./3r)H.  +  7  N.(3H./3r) 

V  1         1      T    1      1 


and  since  H.  is  a  constant  then 

i 


n 


3H/3r  =  >  (3N. /3r)H. 

V  1  1 


where  (3N./3r)  is  found  by  Sq .  (37) ,    and  H.  is  the  appro- 
priate nodal  value  of  H.   The  radial  variations  in  entropy 
and  angular  momentum  are  found  in  the  same  manner .   The  same 
procedure  is  followed  for  the  values  of  rothalpy  and  relative 
tangential  velocity  for  rotor  elements. 

It  is  now  possible  to  calculate  the  quantities  in 
the  expression  for  the  right-hand  side  vector  at  a  point. 
All  that  remains  is  to  apply  an  integration  technique  to 
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obtain  the  value  over  an  element  and  to  assemble  the  re- 
sulting local  contributions  into  the  global  equations.   As 
shown  in  section  III.D.2,  the  local  contribution  for  node  i 
in  an  element  can  be  expressed  as: 


f  =  yw.w,  Tn.  £n0  f,  |j 

x    ik  J    1    £ 


(47) 


In  the  program  Eq .  (47)  is  modified  to 

e    9    n    n 

f.  =  5"wm  Jn.  Vn,  f,  |  j  I 
i   £•  m  v  i  *  k  k '  ' 

x   m   i   k 

where  the  Gaussian  abscissas  and  the  corresponding  product 
of  the  weight  functions  are  grouped  into  three  one-dimensional 
arrays.   At  the  completion  of  the  summing  process,  the  local 
contribution  for  f  has  been  calculated  for  each  node  in  the 
element.   The  global  system  is  then  updated  by  adding  the 
local  contributions  to  the  global  values  through  the  use  of 
the  connectivity  relationships. 

The  following  is  the  subroutine's  algorithm  in  out- 
line form: 
Algorithm: 

Iterate  for  each  element  in  the  mesh. 
Iterate  for  each  Gaussian  point. 
Find  shape  functions,  |  J|  ,  and  [J] 
Find  V  ,  T_,  V  ,  r,  rV  .  (3s/3r),  and  (3H/3r). 

Compute  the  contributions  of  the  value  f  at  the  Gauss 
point  to  the  value  of  f  at  each  node  of  the  element. 
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Upon  completion  of  the  Gaussian  integration,  add  the 
local  contribution  to  the  global  system. 

END 

The  same  algorithm  is  followed  for  rotor  elements  with  the 

appropriate  substitutions  of  H   and  W  . 

K         U 

11 .   Subroutine  STIFF 

Subroutine  STIFF  uses  the  computed  distributions  of 
density  and  blockage  factors  to  form  the  stiffness  matrix 
for  the  global  system  of  equations.   It  was  shown  earlier 
that  the  contribution  to  the  elemental  stiffness  is  expressed 
as 

ke  .  =  l'k(r,z)  [  (3N./3r)  (3N. /3r)  +  (  3N  .  /  3z)  (  3N  .  /  3z)  ]  dQ,  (31a) 

*0    E  D        X  ]        1 

where  k(r,z)  =  (1/prb)  (19) 

Again,  the  elemental  properties  are  considered  to  have  a 
polynomial  variation  of  the  form 

n  n  n 

p(z,r)  =  Tn.o.,   r.  =  7N.r.,   and  b(z,r)  =  VN.b. 

As  shown  earlier,  Eq .  (31a)  can  be  converted  by  the  Gauss- 
Legendre  method  to 

^  =  JjVl  IVm(tB]TtB])U!  (46) 

J    k£     m 

The  value  of  k   is  determined  from  the  definitions  of  p,  b, 
m  '   ' 

and  r  by  the  same  methods  used  in  subroutine  FCAL.   The 

T 
evaluation  of  [B]  [B]  is  a  simple  matter  to  perform.   The 
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matrix  [B]  is  simply  the  column  vector  {(3N./3z),  (3N./3r)}. 
Therefore,  [B]T[B]  can  be  written  [ ON . /3r ) ( 3N . / 3r)  + 
(3N./3z) (3N./3z) ] .   The  value  of  (3N./3z)  and  (3N./3r)  is 
found  for  all  nodes  in  the  element  in  one  step  through  the 
use  of  subroutine  JACOB.   The  matrix  product  can  be  evaluated 
at  a  point  (z,r)  as 

n  n 

V  V  [ (3N./3r) (3N./3r)  +  ( 3N . / 3z) ( 3N . / 3z) ] 

r     h  1         1  1         1 

i  3 

By  using  the  same  Gaussian  weighting  scheme  used  in  subrou- 
tine FCAL,  Eq .  (46)  may  be  written  in  the  form 

9    n     nn 

k<2-  =  Iwv  INok  ,lli  ON./3r)  (3N./3r)  +  (  3N  .  /  3z)  (  3N  .  /  3z)  ]  |  J  | 
13    k    k  z    x,    X,^     i         j  1         [J 

The  resulting  8x8  elemental  matrix  is  then  added  to  the 
global  stiffness  matrix  through  the  connectivity  relationships 
Up  to  this  point  [K]  and  {f}  have  been  assembled  with- 
out regard  to  the  boundary  conditions  except  at  the  exit  plane 
where  the  (3^/3n)  =  0  was  enforced  explicitly  during  the  pro- 
cedures used  by  Subroutine  DIST.   Care  must  be  taken  to  en- 
sure that  the  boundary  conditions  for  the  other  three  segments 
of  the  boundary  are  not  violated.   As  shown  in  section  III.B, 
the  boundary  condition  for  the  nodes  along  the  shroud,  along 
the  hub  and  at  the  inlet  plane  of  the  machine  is  that  the 
value  of  ifj  is  specified.   If  the  value  of  ip  is  specified  at 
these  locations  the  Eq .  (32)  must  be  modified  so  that  ip  is 
no  longer  free  at  these  nodes.   A  standard  technique  is 
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employed  to  remove  individual  equations  from  a  system  of 
equations  when  the  degree  of  freedom  represented  by  the  in- 
dividual equations  has  been  removed. 

The  following  is  the  subroutine's  algorithm  in  out- 
line form: 
Algorithm: 

Iterate  for  each  element  in  the  mesh. 
Iterate  for  each  Gaussian  point. 
Find  shape  functions,  | J | ,  and  [J] 
Find  the  value  of  k  at  the  Gauss  point. 
Compute  the  elemental  stiffness  matrix. 

Upon  completion  of  the  Gaussian  integration,  add  the 
local  contribution  to  the  global  system. 

Upon  completion  of  the  addition  of  the  last  element's 
contribution,  modify  the  system  of  equations  to  include 
the  boundary  conditions. 

END 

12 .  Subroutine  DSIMQ 

Subroutine  DSIMQ  is  a  non-IMSL  library,  double  pre- 
cision subroutine  that  solves  a  set  of  n  simultaneous  equa- 
tions of  the  form 

[A]{X}  =  {B} 

where   [A]  is  an  nxn  matrix 

{X}  and  {B}  are  nxl  vectors. 

13 .  Subroutine  REPLA 

Subroutine  REPLA  places  the  solution  vector  obtained 
from  subroutine  DSIMQ  into  its  proper  storage  location. 
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14.   Subroutine  TEST 

Subroutine  TEST  determines  the  maximum  difference 
in  the  assumed  nodal  distribution  of  the  stream  function  at 
the  beginning  of  an  iteration  to  the  solution  of  the  radial 
equilibrium  equation  calculated  using  the  assumed  distribu- 
tion. The  difference  in  the  distributions  at  a  node  is  de- 
fined as 


Diff  = 


[Kn  -  hn+1)/hn+1] 


where  ty.       is  the  assumed  value  at  node  i  and  $     is  the 
calculated  value  for  node  i.   Convergence  is  considered  to 
be  reached  when  the  maximum  difference  for  any  node  is  less 
than  a  selected  reference  value,  e. 

15.  Subroutine  RELAX 

Subroutine  RELAX  performs  the  relaxation  scheme  to 
obtain  an  updated  estimate  of  the  stream  function  distribu- 
tion for  the  next  program  iteration.   The  new  estimate  for 
stream  function  distribution  is  calculated  as  follows: 

,    n+1  n    .       Tr   n+1         ,    n~\  ,.n 

«|>i  =  ijk      +   ah|>i  -  iJk    J  (48 

16.  Subroutine  NQCON 

Subroutine  NOCON  prepares  the  program  for  the  next 
iteration  by  setting  the  elements  of  the  right-hand  side 
vector,  {f},  and  the  stiffness  matrix,  [K] ,  equal  to  zero. 
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17.  Subroutine  OUTPUT 

Subroutine  OUTPUT  prints  the  computed  nodal  values 
of  a  majority  of  the  velocities  and  thermodynamic  properties. 
A  listing  of  the  values  that  are  printed  and  the  correspond- 
ing units  is  contained  in  Appendix  D.   A  sample  output  list- 
ing is  contained  in  Appendix  G. 

18 .  Subroutine  MPLOT 

Subroutine  MPLOT  uses  the  Tektronix  618  terminal  to 
make  an  online  graphical  presentation  of  selected  variables 
at  the  rotor  inlet,  rotor  outlet,  stator  inlet  and  the  stator 
outlet.   Figures  7  through  20  provide  examples  of  the  plots 
available  for  display  to  the  individual  on  request.   The 
user  is  given  the  option  of  terminating  the  plotting  sequence 
at  any  stage  of  the  presentation  through  the  use  of  inter- 
active prompts. 

The  following  is  the  subroutine's  algorithm  in  out- 
line form: 
Algorithm: 

Convert  the  appropriate  variables  to  Real  4  for  compati- 
bility with  the  library  plotting  package  GRAFF. 

Determine  the  values  of  axial  velocity,  relative  flow 
angles,  total-to-total  pressure  ratio,  and  the  adiabatic 
efficiency  for  the  rotor  inlet,  display  if  requested. 

Determine  the  values  of  axial  velocity,  and  relative, 
absolute,  and  deviation  angles  for  the  rotor  exit,  display 
if  requested. 

Determine  the  values  of  axial  velocity,  absolute  flow 
angles,  and  total-to-total  pressure  ratio  for  the  stator 
inlet,  display  if  requested. 


68 


Determine  the  values  of  axial  velocity,  and  absolute  and 
deviation  angles  for  the  stator  exit,  display  if  requested 

END 

19.   Subroutine  SHAPE 

Subroutine  SHAPE  calculates  the  eight  nodal  shape 

functions  for  a  given  point  (£,n).   The  equations  for  the 

nodal  shape  functions  are: 

N(l)  =  Un  +  ?2  +  n2  +  C2n  +  Cn2  -  D/4 

n(2)  =  (1  +  n  -  c2  -  ?2n)/2 

N(3)  =  (-en  +  £2  +  n2  +  C2n  -  ?n2  -  D/4 

N(4)  =  (1  -  n2  -  C  +  5n2)/2 

N(5)  =  (Cn  +  ^2  +  n2  -  ?2n  -  Cn2  -  D/4 

N(6)  =  (l  -  n  -  C2  +  Cn2) /2 

N(7)  =  (-en  +  c}   +   n2  -  52n  +  Sn2  -  D/4 

N(8)  =  (1  -  n2  +  E,   -  -;n2  -  D/2 

The  values  of  the  shape  functions  are  stored  in  the  array 
SF,  and  are  returned  to  the  calling  portion  of  the  program. 
2  0 .   Subroutine  JACOB 

Subroutine  JACOB  computes  the  partial  derivatives 
of  the  shape  functions  with  respect  to  £  and  n  and  computes 
the  elements  of  the  Jacobian  matrix,  [J],  for  a  specific 
point  (£,n).   The  equations  for  the  partial  derivatives  were 
obtained  directly  from  the  differentiation  of  the  functions 
shown  in  the  description  of  subroutine  SHAPE.   The  arrays  D 
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and  E  store  the  values  of  the  (3N/3£)  and  (3N/3n)  respective- 
ly.  The  Jacobian  matrix  is  calculated  by  the  following  se- 
quence of  equations: 


n 

_  r 


J(l,l)  =  Oz/30  =  I     (3N./3£)z. 

i 

n 
J(l,2)    =    Or/35)    =    I     (3Ni/3C)ri 

i 

n 
J(2,l)     =    (3z/3n)    =    I     (3Ni/3n)zi 


n 
J(2,2)    =    Or/an)    =    I    (3Ni/3n)ri 

i 

Arrays  D  and  E  and  the  Jacobian  matrix  are  returned  to  the 
calling  location  in  the  program. 

21 .  Subroutine  ERR1 

Subroutine  ERR1  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Real  8  variables  has  been  exceeded. 
The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.   The 
user  response  would  be  to  increase  the  value  of  LIMR  if  pos- 
sible or  reduce  the  size  of  the  mesh. 

22.  Subroutine  ERR2 

Subroutine  ERR2  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Real  4  variables  has  been  exceeded. 
The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.   The 
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user  response  would  be  to  increase  the  value  of  LIM4  if  pos- 
sible or  reduce  the  size  of  the  mesh. 
23.   Subroutine  ERR3 

Subroutine  ERR3  is  called  by  subroutine  INPUT  if  the 
storage  limitation  for  Integer  4  variables  has  been  exceeded. 
The  subroutine  displays  the  amount  by  which  the  limitation 
was  exceeded  and  terminates  the  program's  execution.   The 
user  response  would  be  to  increase  the  value  of  LIMI  if  pos- 
sible or  reduce  the  size  of  the  mesh. 


71 


VI.   RESULTS  AND  DISCUSSION 

A.   PROGRAM  VERIFICATION 

Four  operating  conditions  of  the  NASA  TASK-1  compressor 
were  used  to  test  the  capabilities  of  the  programs  MESHGEN 
and  TURBO.   In  all  cases  the  63  element,  222  node  mesh  with 
an  under-relaxation  factor  of  0.24  as  recommended  by  Hirsch 
and  Warzee  [Ref.  4]  were  used.   Selected  portions  of  the  re- 
sults obtained  are  presented  in  Figs.  7  through  76.   The 
points  annotated  as  "observed  values"  were  obtained  from  the 
material  published  in  Refs.  23  and  24.   The  values  attributed 
to  Gavito  were  obtained  from  Ref.  8  and  those  attributed  to 
Hirsch  from  Ref.  4.   A  discussion  of  the  predictions  for  the 
various  conditions  are  presented  in  the  sections  that  follow. 

1 .   Test  Case  1 

For  test  case  1  the  operating  point  was  defined  as  a 
rotor  speed  of  50%  design  speed  and  an  inlet  mass  flow  rate 
of  107.6  lbm/sec.   The  author  was  unable  to  locate  this  spe- 
cific operating  point  in  Ref.  23  or  24  and  must  assume  that 
in  Ref.  4  the  mass  flow  rate  was  modified  to  conform  to  the 
end-wall  boundary  layer  scheme  described  in  that  reference. 
Therefore,  it  was  necessary  to  use  the  observed  values  pub- 
lished by  Hirsch  and  Warzee  in  Figs.  21  through  30.   The 
relative  differences  found  between  the  present  predictions 
and  the  reported  observations  are  given  in  Table  1 . 
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a.  Comparison  to  the  Work  of  Gavito 

Figures  21,  22,  23  and  24  compare  the  results 
obtained  by  Gavito  with  the  predictions  of  the  present  pro- 
gram.  A  significant  improvement  has  been  obtained  at  all  lo- 
cations.  That  this  was  possible  was  due  in  large  measure  to 
the  solid  foundation  to  the  present  work  provided  by  Gavito ' s 
program  and  to  the  excellent  documentation  given  in  Ref.  8. 

b.  Comparison  to  the  Work  of  Hirsch  and  Warzee 
The  predictions  of  the  program  TURBO  compare 

quite  faborably  with  those  of  Hirsch  and  Warzee.   As  shown 
in  Figs.  25,  26,  29  and  30  the  predictions  of  the  two  pro- 
grams have  almost  identical  average  relative  errors  for  the 
velocity  profiles.   The  predictions  of  Hirsch  and  Warzee 
tend  to  have  better  agreement  in  the  rotor  and  stator  tip 
regions,  while  the  program  TURBO  has  slightly  better  agree- 
ment near  the  hub.   The  program  TURBO'S  predictions  had  a 
3.7%  and  2.5%  average  error  at  the  rotor  inlet  and  exit  re- 
spectively with  a  maximum  error  of  4.6%  at  the  inlet  and  7.0% 
at  the  outlet.   The  stator  inlet  velocity  predictions  had  an 
average  relative  error  of  2.6%  and  maximum  error  of  5.8%  and 
the  outlet  predictions  had  a  2.0%  average  error  with  a  maxi- 
mum error  of  6.0%.   The  prediction  of  both  programs  for  the 
velocity  profiles  show  excellent  agreement  with  the  observed 
values . 

Hirsch  and  Warzee ' s  program  consistently  produced 
flow  angle  predictions  with  closer  agreement  to  the  observed 
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values  for  the  published  rotor  outlet  angles.   Though  the  two 
programs  had  the  same  average  errors  of  3.3°  for  the  relative 
flow  angles  and  4.8°  for  the  absolute  flow  angles,  Hirsch  and 
Warzee ' s  program  provided  better  qualitative  distributions. 
The  difference  is  clearly  shown  in  Figs.  27  and  28. 

Hirsch  and  Warzee  did  not  publish  predictions  of 
total  pressure  ratios  or  adiabatic  efficiencies,  so  the  pre- 
dictions made  by  TURBO  for  these  parameters  were  not  pre- 
sented.  It  is  assumed  that  no  significant  differences  could 
have  occurred  because  of  the  similarity  of  the  results  for 
the  velocity  profile  and  flow  angles  discussed  earlier. 

2.  Test  Case  2 

Because  of  the  apparent  modification  in  the  mass  flow 
rate  which  was  assumed  in  test  case  1  and  the  lack  of  compara- 
tive data  for  all  quantities  predicted  by  the  program  TURBO, 
another  operating  point  at  50%  design  speed  was  compared. 
The  operating  condition  for  case  2  was  defined  as  a  mass  flow 
rate  of  114.7  ibm/sec  at  a  speed  equal  to  50%  of  design, 
which  corresponded  to  reading  38  of  Ref.  24.   The  results  for 
case  2  are  presented  in  Figs.  31  through  44,  and  a  summary 
of  the  relative  differences  between  the  predictions  and  ob- 
servations is  contained  in  Table  2. 

3 .  Test  Case  3 

Test  case  3  corresponded  to  reading  45  of  Ref.  24, 
which  was  defined  as  a  speed  equal  to  70%  design  and  a  mass 
flow  rate  of  151.55  lbm/sec.   When  reviewing  the  results 
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presented  for  this  case,  one  should  note  the  decline  in  the 
agreement  between  the  program's  predictions  and  the  observed 
values.   It  is  the  author's  opinion  that  the  degradation  is 
primarily  caused  by  two  factors.   The  first  is  the  formula- 
tion used  to  compute  the  meridional  velocity  change  across 
the  rotor  and  the  other  is  the  application  of  a  single  block- 
age factor  to  all  nodes  to  account  for  the  end-wall  boundary 
layers.   Both  factors  are  much  more  significant  at  70%  design 
speed  than  they  were  at  50%.   At  70%  design  speed  the  rotor 
tip  relative  Mach  number  is  about  0.94.   This  would  require 
the  program  to  account  for  transonic  effects  at  the  tip. 
Second,  the  mass  flow  and  absolute  Mach  number  of  the  flow  in 
all  regions  is  significantly  higher  at  70%  design  speed. 
Therefore,  it  is  unlikely  that  a  single  blockage  factor  will 
work  satisfactorily  in  all  regions  of  the  machine.   It  is 
hoped  that  both  areas  will  be  addressed  in  any  future  work 
on  the  program. 

The  results  for  test  case  3  are  presented  in  Figs.  45 
through  58  with  the  corresponding  differences  between  the 
predictions  and  observations  summarized  in  Table  3. 
4 .   Test  Case  4 

The  operating  condition  of  test  case  4  was  at  80%  de- 
sign speed  point  with  a  mass  flow  rate  of  174.54  lbm/sec, 
corresponding  to  reading  50  of  Ref.  24.   Figures  59  through 
72  and  Table  4  present  the  results  of  the  program's  predic- 
tions and  comparisons  to  the  observed  values.   As  expected, 
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and  for  similar  reasons  to  those  cited  in  test  case  3,  the 
agreement  between  the  program's  predictions  and  observed 
values  is  significantly  poorer  than  any  of  the  three  previous 
cases . 

B.   POINTS  OF  INTEREST 

The  results  produced  by  the  program  are  highly  dependent 
on  the  value  of  the  general  blockage  factor  used  to  account 
for  the  end-wall  boundary  layers.   This  factor  influences 
both  the  quality,  in  terms  of  agreement  with  observations, 
and  the  stability  of  the  solution.   Figures  73  through  76 
show  the  axial  velocity  distributions  for  the  rotor  and  sta- 
tor  for  test  case  4  with  a  blockage  factor  of  9%  instead  of 
the  6%  factor  used  to  obtain  the  results  shown  in  Figs.  59 
through  72.   A  comparison  of  corresponding  velocity  profiles 
clearly  demonstrates  the  factor's  pronounced  influence  on 
the  program's  solution.   The  general  blockage  factor  also  has 
a  strong  influence  on  the  program's  convergence  rate.   In 
some  cases  the  factor  can  cause  the  program  to  become  oscil- 
latory or  even  divergent. 

For  the  low  speed  cases  of  50%  and  70%  design,  additional 
blockage  factors  had  to  be  applied  to  the  duct  element  be- 
tween the  rotor  and  stator  tips  to  obtain  accurate  results. 
As  shown  in  the  program  listing  for  subroutine  INPUT  of  pro- 
gram TURBO,  the  factors  used  for  50%  design  speed  were  much 
higher  than  the  factors  used  for  70%  design  speed  and  that 
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no  additional  factors  were  used  for  80%  design  speed.   A 
global  method  of  calculating  the  end-wall  blockage  factor 
must  be  incorporated  if  the  program  is  to  become  independent 
of  inputs  other  than  physical  constants. 

The  deterioration  of  the  program's  predictions  with  in- 
creasing Mach  number  and  its  failure  to  run  for  test  cases 
with  strong  supersonic  relative  velocities  at  the  tip  demon- 
strate the  need  to  provide  the  program  with  a  method  of 
handling  supersonic  relative  velocities.   Hirsch  and  Warzee 
[Ref.  15]  showed  a  method  of  extending  the  radial  equilibrium 
formulation  used  in  the  present  code  to  supersonic  flow. 
They  presented  comparisons  of  predictions  obtained  by  this 
method  to  observations  of  the  NASA  TASK-1  transonic  compres- 
sor at  100%  design  speed.   The  results  were  impressive  and 
clearly  showed  that  the  method  is  valid  for  relative  velo- 
cities in  excess  of  Mach  1.4.   It  is  strongly  recommended 
that  the  first  effort  at  improving  the  code  be  an  effort  to 
modify  TURBO  to  include  the  method  shown  in  Ref.  15. 
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VII.   CONCLUSIONS  AND  RECOMMENDATIONS 

A  computer  program  based  on  the  finite  element  technique 
has  been  developed  and  has  been  verified  satisfactorily  for 
computing  flows  through  subsonic  axial  flow  compressor 
stages.   Minor  modifications  have  been  suggested  to  allow 
transonic  stages  to  be  calculated. 

The  code  was  written  in  such  a  way  that  it  could  be 
readily  adapted  to  compute  either  turbines  or  compressors 
with  multiple  stages.   Before  such  extensions  are  attempted 
however,  the  following  specific  recommendations  are  made  to 
improve  the  present  compressor  code. 

A.  PROGRAM  MESHGEN 

1.  Incorporate  some  of  the  two-dimensional  techniques  of 
Adamek  [Ref.  25]  to  improve  the  efficiency  of  the 
code . 

2.  Review  the  code  to  find  improvements  in  storage  allo- 
cations and  computational  efficiencies. 

3.  Modify  the  program  to  track  the  first  and  last  nodes 
of  the  rotor  and  stator  as  subscripted  variables  so 
that  the  program  can  be  used  to  generate  the  appro- 
priate mesh  parameters  for  a  multi-stage  machine. 

4.  Convert  subroutine  MPLOT  to  the  DISPLA  system. 

B.  PROGRAM  TURBO 

1.    Incorporate  a  method  for  the  global  calculation  of  the 
blockage  and  losses  created  by  the  end-wall  boundary 
layers . 
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2.  Convert  the  storage  of  [K]  and  the  solution  technique 
for  the  program  to  at  least  a  symmetric  banded  scheme 
or  if  possible  to  a  skyline  equivalent  scheme. 

3.  Test  the  program  on  a  variety  of  machines  and  operating 
conditions . 

4.  Obtain  expressions  that  approximate  the  NASA  correla- 
tion curves  for  65-series  blading. 

5.  Incorporate  methods  for  the  prediction  of  stall/surge. 

6.  Take  advantage  of  the  modular  form  of  the  program  and 
include  a  variety  of  correlation  techniques  as  a  user 
selected  option. 

7 .  Review  the  program  for  improved  storage  and  computa- 
tional techniques.   Specifically,  determine  ways  to 
take  fuller  advantage  of  the  dynamic  dimensioning 
scheme  [Ref.  16]  used  by  the  program. 

8.  Convert  the  rotor  inlet  calculations  to  allow  the 
value  of  Si  to  have  nonzero  values  so  that  the  program 
can  be  extended  to  multi-stage  analysis. 

9.  Modify  the  use  of  the  values  of  the  beginning  nodes  of 
the  rotor  and  stator  to  subscripted  variables  so  that 
the  analysis  can  be  extended  to  multi-stage  machines. 

10.  Convert  subroutine  MPLOT  to  the  DISPLA  system. 

11.  Develop  iterative  schemes  for  calculating  the  flow 
angle,  the  velocity  distribution  changes  and  the 
thermodynamic  property  changes  across  a  turbine  rotor 
and  stator  for  inclusion  in  subroutines  ROTO  and  STAT. 
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TABLE  1 
Connectivity  Relationships  for  Figure  Three 
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Number 

Number 
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14 
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3 
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5 
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10 
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16 

3 
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10 

3 

3 

5 

3 

4 

6 

3 

5 

7 

3 

6 

11 

3 

7 

18 

3 

8 

17 
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TABLE  2 

Comparison  of  Program  Predictions  with  NASA  Task-1 
Compressor  Measurements  at  50%  Design  Speed 


Average  Maximum 

Difference       Difference 


Rotor  Inlet 

Axial  Velocity  4.6%  7.2 

Relative  Angles  1.5°  3.1 

Total  Pressure  Ratio  0.7%  1.4% 

Efficiencies  4.3%  11.4% 


o 


0 


o 


Rotor  Outlet 

Axial  Velocity  3.2%  6.7' 

Relative  Angles  1.6°  2.8 

Absolute  Angles  1.5°  4.2 

Deviation  Angles  2.2°  3.0° 

Stator  Inlet 

Axial  Velocity  3.4%  6.8% 

Absolute  Angles  2.5°  4.2° 

Total  Pressure  Ratio  0.3%  1.2% 

Stator  Outlet 

Axial  Velocity  1.7%  5.7% 

Absolute  Angles  0.6°  1.5 

Deviation  Angles  1.4°  2.6 


0 


o 
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TABLE  3 

Comparison  of  Program  Predictions  with  NASA  Task-1 
Compressor  Measurements  at  70%  Design  Speed 


Average         Maximum 
Difference       Difference 


Rotor  Inlet 

Axial  Velocity  4.8%  7.4 

Relative  Angles  1.14°  1.8 

Total  Pressure  Ratio  1.1%  2.0 

Efficiencies  3.2%  4.8 


o 


Rotor  Outlet 

Axial  Velocity  4.1%  7.4% 

Relative  Angles  2.0°  3.2° 

Absolute  Angles  3.6°  5.5 


o 


0 


o 


Deviation  Angles  1.6°  3.5 

Stator  Inlet 

Axial  Velocity  4.0%  8.8 

Absolute  Angles  3.9°  5.5 

Total  Pressure  Ratio  0.5%  2.1% 

Stator  Outlet 

Axial  Velocity  3.6%  7.4% 

Absolute  Angles  0.6°  1.1° 

Deviation  Angles  1.5°  2.4° 
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TABLE  4 

Comparison  of  Program  Predictions  with  NASA  Task-1 
Compressor  Measurements  at  80%  Design  Speed 


Average         Maximum 
Difference       Difference 


Rotor  Inlet 

Axial  Velocity  7.9%  11.4 

Relative  Angles  1.3°  1.5 

Total  Pressure  Ratio  1.5%  2.5% 

Efficiencies  3.1%  7.9% 


o 


Rotor  Outlet 

Axial  Velocity  6.6%  8.9% 

Relative  Angles  2.9°  5.5° 

Absolute  Angles  6.8°  8.5° 

Deviation  Angles  2.4°  4.7° 

Stator  Inlet 

Axial  Velocity  6.9%  13.9% 

Absolute  Angles  5.6°  7.0° 

Total  Pressure  Ratio  0.9%  3.1% 

Stator  Outlet 

Axial  Velocity  8.0%  20.0% 

Absolute  Angles  0.8°  1.4° 

Deviation  Angles  1.5°  2.3° 
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Figure  1.   SI  and  S2  Stream  Surfaces 
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APPENDIX  A 
STORAGE  ALLOCATION  FOR  THE  PROGRAM  MESHGEN 

The  following  list  of  pointers  and  variable  names  indi- 
cates the  storage  location  of  the  first  value  of  the  corres- 
ponding array: 

REAL  8  Variables  (Array  R8) 

Pointer     Array  Array 

Name        Name  Contents 

Jl         XSE        Z  Coordinates  of  the  Super 

Elements 

J2         YSE        R  Coordinates  of  the  Super 

Elements 

J3        XXSE      Temporary  Storage  of  the  Z 

Coordinates  of  the  Super 
Element  Subdivision 

J4         YYSE       Temporary  Storage  of  the  R 

Coordinates  of  the  Super 
Element  Subdivision 

J5  ZC  Z  Coordinates 

J6  RC  R  Coordinates 

J7  PSI  Stream  Function 

J8  B  Blockage  Factor 

J9  End  of  Stored  Values 
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REAL  4  Variables  (Array  04) 


Pointer 
Name 

Ml 


M2 


M3 


M4 


M5 


M6 


Array 
Name 

OHZC 


OHRC 


OVZC 


OVRC 


0HZC1 


0HRC1 


M7 

OZC 

M8 

ORC 

M9 

Array 
Contents 

Z  Coordinates  of  Streamwise 
Element  Boundaries 

R  Coordinates  of  Streamwise 
Element  Boundaries 

Z  Coordinates  of  Transverse 
Element  Boundaries 

R  Coordinates  of  Transverse 
Element  Boundaries 

Z  Coordinates  of  Streamwise 
Element  Boundaries 

R  Coordinates  of  Streamwise 
Element  Boundaries 

Real  4  Z  Coordinates  of  Mesh 

Real  4  R  Coordinates  of  Mesh 

End  of  Stored  Values 


INTEGER  4  Variables  (Array  12) 


Pointer 
Name 

LI 


Array 
Name 

NSEC 


L2 

NTSE 

L3 

NTE 

L4 

NODE 

L5 

NBC 

L6 

Array 
Contents 


Number  of  Columns  per  Super 
Element 

Super  Element  Type 

Element  Type  Identifier 

Connectivity  Matrix 

Boundary  Condition  Nodes 

End  of  Stored  Values 
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APPENDIX  B 
LISTING  OF  THE  OUTPUT  VARIABLES  FOR  THE  PROGRAM  MESHGEN 


FORTRAN  Name 


Variable 


zc 

Z  Coordinate 

RC 

R  Coordinate 

B 

Blockage  Factor 

PRESS 

Inlet  Static 

Pressure 

PTOT 

Inlet  Total 

Pressure 

TEMP 

TTOT 

RHOSTA 

RHOTT 

WDOT 

CP 

R 

G 

RPM 

VZI 

NODE 
NTS 


Inlet  Static 
Temperature 

Inlet  Total 
Temperature 

Inlet  Static 
Density 

Inlet  Total 
Density 

Inlet  Mass  Flow 

Specific  Heat 

Gas  Constant 


RPM 

Inlet  Axial 
Velocity 

Connectivity  Matrix 

Element  Type  ID 


File 
TMESH  DATA 
TMESH  DATA 
TMESH  DATA 
FLUID  DATA 

FLUID  DATA 

FLUID  DATA 

FLUID  DATA 

FLUID  DATA 

FLUID  DATA 

FLUID  DATA 
FLUID  DATA 
FLUID  DATA 
FLUID  DATA 
FLUID  DATA 
FLUID  DATA 

NODE  DATA 
NODE  DATA 
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NBC  Boundary  Nodes  BC  DATA 

Where  ty   Specified 

PSI  Stream  Function  STREAM  DATA 
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APPENDIX  C 
STORAGE  ALLOCATION  FOR  THE  PROGRAM  TURBO 

The  following  list  of  pointers  and  variable  names  indi- 
cates the  storage  location  of  the  first  value  of  the  corres- 
ponding array: 


REAL  8  Variables  (Array  R8 


Pointer 

Array 

Name 

Name 

NP1 

ZC 

NP2 

RC 

NP3 

B 

NP4 

ALP 

NP5 

BE 

NP6 

H 

NP7 

HS 

NP3 

VZ 

NP9 

VR 

NP10 

VU 

NP11 

wu 

NP12 

PSI 

NP13 

PSIO 

NP14 

F 

NP15 

RHS 

NP16 

RHO 

Array 
Contents 

Z  Coordinates 

R  Coordinates 

Blockage  Factors 

Absolute  Flow  Angles 

Relative  Flow  Angles 

Total  Enthalpy 

Static  Enthalpy 

Axial  Velocity 

Radial  Velocity 

Absolute  Tangential  Velocity 

Relative  Tangential  Velocity 

Current  Streamfunction  Values 

Previous  Streamfunction  Value 

Right-hand  Side  Vector 

Temporary  Storage  for  F 

Static  Density 
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NP17 

RHON 

NP18 

WRL 

NP19 

ETA 

NP20 

EM 

NP21 

DEVI 

NP22 

PRAT 

NP23 

TEMP 

NP24 

TTOT 

NP2  5 

PRESS 

NP26 

PTOT 

NP27 

RHOTT 

NP28 

HR 

NP29 

ENTROP 

NP30 

Not  Used 

Angular  Momentum  Vector 

Adiabatic  Efficiencies 

Stiffness  Matrix  Elements 

Rotor/Stator  Deviation  Angles 

Total-to-Total  Pressure  Ratio 

Static  Temperature 

Total  Temperature 

Static  Pressure 

Total  Pressure 

Total  Density 

Rhothalpy 

Entropy 

End  of  Stored  Values 


REAL  4  Variables  (Array  04) 


Pointer 
Name 

Array 
Name 

NP01 

OVEL 

NP02 

ORC 

NP03 

OBE 

NP04 

OALP 

NP05 

Array 
Contents 

Velocity  at  a  Given  Station 

R  Coordinates 

Relative  Flow  Angles 

Absolute  Flow  Angles 

End  of  Stored  Values 
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INTEGER  4  Variables  (Array  12) 


Pointer 

Array- 

Name 

Name 

NPI1 

NFS 

NPI2 

NBC 

NPI3 

NTE 

NPI4 

NODE 

NPI5 

Array 
Contents 


Nodes  for  F  Calculation 
Boundary  Nodes 
Element  Type  Identifier 
Connectivity  Matrix 
End  of  Stored  Values 
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APPENDIX  D 
LISTING  OF  THE  OUTPUT  VARIABLES  FOR  THE  PROGRAM  TURBO 


Listing  Name 
PSI 
VZ 
VR 
R 

DENSITY 
WRL 
HT 
VT 

WT 

HS 

TEMP 

TTOT 

PRESS 

PTOT 

RHOT 

ALPHA 

BETA 


Variable 

Stream  Function 

Axial  Velocity 

Radial  Velocity 

Radius 

Static  Density 

Angular  Momentum 

Total  Enthalpy 

Absolute  Tangential 
Velocity 

Relative  Tangential 
Velocity 

Static  Enthalpy 

Static  Temperature 

Total  Temperature 

Static  Pressure 

Total  Pressure 

Total  Density 

Absolute  Flow  Angle 

Relative  Flow  Angle 


Units 
lbm/sec 
ft/sec 
ft/sec 
inches 
lbm/ft3 
ft  /sec 
BTU/lbm 
ft/sec 

ft/sec 

BTU/lbm 

°R 

°R 

psia 

psia 

lbm/ft3 

Degrees 

Degrees 
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APPENDIX    E 
LISTING    OF    THE    PROGRAM   MESHGEN 

FILE:     PEShCEN       FCrtTRAN       Al       NAVAL    PC STGD AJLATE    SCHOOL 

Q      +  444  4*44  +  +-44-»4-t4  +  +4+4444444f444+-4+4+444+4  +  44+4444-+4  +  +44»-4*-++f  +  +++44  + 
C     #4444  44  4444  444444  4  44  444-444  44  44-4444  444  f44  44444  444444  4  444  4  44444  4444  +  44 

C      4  +  *»H4+  +  tf  +  4  +  ++  +  +  ttt+++*t+tt*-+f  +  +»»-t+++  +  f  +  t-  +  +  tt-f  +  +V  +  +  *'  +  t  +  +(-++*++  +  +t 

c    **  *+ 

C    *♦  PRCGSAK    *EShCE-J  +  + 

C  44                                                                                                                                                                                                                                                            4  + 

f  ♦♦H4)HH4HMtHH44+lftt+*  +  t  +  +++t+t4-»-  +  +  t+  +  +  +  +  t+t  +  t  +  f+Ht  +  +  +  ++++tt 

C  ♦+*>«Htt+ttj*Ht  +  +  +  f  +  t  +  +  t  +  +tttt  +  t+*t*tlfHH  +  UttTt  +  t+H  +  tl+H++  +  t  + 

C  44HM4  +  +  +t«4+H  +  tH  +  ++t++  +  t+tf  +  4++  +  tt+  +  +4't+++ftt*ttt  +  '-+tH  +  1-  +  +  ff+>  + 

C  44                                                                                                                                                                                                                                                                              4-  + 

C    44  THIS    PPCGPAI*     FPCCUCFS    £    CECTANGULA«     EIGHT-NCOED  44 

C     4+  ISOPriRAPETR  IC     GR  in     CF     ARBITRARY    JIM  ENSIGN     M    X     *■    GIVEN  44 

C    44  Tf-C    CCFNEF    I^CCpc    ^F    THE    MESH'S    "  S'JP  E^    ELEMENTS".  +4 

C    44  Tt-:    P-.CCkAM    ALSC    CCMPLTES    AN     INITIAL    STREAM    FUNCTION  44 

C    44  C  IST9  T(-LT  !r'\  ,    TANGENTIAL    BLOCKAGE    FACTOf-.S<    .\NO     Tint  44 

C    44  aPPKQopiATc     IMET    CC.'iniTIGNS    NEED    FC3    The    PROGRAM    TURBO.  4  + 

C     4+  THE    PROGRAM     is    r\LY    LU'ITEJ    e^     THE     S°ACE     f.LOCAT£D     IN  +4 

C    44  ThE    AFF/YS    RJ,    C4f      12    CR    MACHINE    LIMITATIONS.  +4 

C  44                                                                                                                                                                                                                                                            4  4 

C  44444H44444-  +  4^4444+++4  +  +  -»-++  +  44>+4+4  +  +  4+4+  +  -t-f4-«-  +  +  +-t-4-*-f-f++44+*«-444+4f  + 

C  4+444t4t++t+4*++++4t4»++++4+4++++++t+++4+t++4+tf4tt+f+++t++tt4+t++++ 
C 

IMPLICIT    REAL*€(A-G, ?-l) ,    «EAL*4(H) 

INTEGER**    M  f!«RltKCt'-:Clt  ICtMRR  1,.M=1  ,  MN1,  4N2»MM3  ,  MN4»NSE2t  N2 
INTEGER*'     IANS 

CC^CN     /INTW     ^R,)»ft  l,NCtNCl»  IC 
CCI^r'i     /KCUNT/    yBCW«MPOWl  f«NS?C 
CCNMr\'-l    /NCCUNT  /    M*  .NCOL.NCCL1.  NEtN'SiJTCtNSTAT 

CCVMf  '■     /Npr-l  M/    J  It  J2,  J":  ,  Ji.  Ju  f  J6tJ7,.J3i  J  9,  J  U,  J  11  ,J12»JI3  f  Jl*» 
1L1  .L2,L3  1L-,  L5  ,L<.  ,VL  ,>2t  ft  ,  .^,  .v5,,l<6,  f7,MdfM9 
CCfMfN     /FhAK  /    P3<  SOCCJ 
CCf-MCN    /UFA*/     I2Ou0C) 
CCfrMCN    /CFAR*./    CM3  0CO) 
LI.*R    =     ^CCC 
LTV  I    =     3C00 
L  1  iv  4    =     ?  C  C  C 


CALL    INIT1(MRCV»2.NCCL2  iNS?iNSE2tWOOT  .PTCT.TTCT  ,  R PM,G, R fCP , Z*AX, 
HP  If<,RMA>,PM  IN  ,  IANS  ) 

CALL    INPLT(R«I  jl)  f5  8(J2)  *I2(L1  )  »I2(L2>  fNEl,NSE2  ,NSE,!*RSl.N'2,l.  IV!5f 
ILIMfLlMtUfcS) 

CALL    TMESMRft ■(  Jl  )  »F  8(J2J  .RR( J3)  t°  *t  J  «)  fR  «(  J5)  t  R3{  J6)  f  I2(L1) 
It  I2IL2)  »I2(L2  )  ,ii=(J13)  »NSE2tNSSf  IZtMRRli  IA'JS  ) 

CAL".    CCKEClI?(L2)*I2<L3)tI2(L4  ),,iSF,  \2,?4E  lf NRQTOJtrtPGTOE, 
INS7ATR,N'5TATE  ,  IAivSl 

CALL    INIT2(R£<  fc6)  ,  12  (L  +  >  ,  12 (L5  I  » - S ( J  7  J  ,RhCSTA,  <?HCTT,  TTCT,  WC^T  , 
lPTCT,P*ESStTEP  PtVZI  iR, CP ,G ,HSE 2|MKR I  tN2»NSE  t«\El  ,  I  AN  5) 

IF(IANS.EC.2J     GOTC     ICO 


CALL    TASKIP  e(  J6)  |P3(J13)  ,NSE2  tPRR'  »  N2  ,MPCTC3,  NFOTCE,NSTAT  B, 
INSTATE) 
C 

c 

IOC         CALL    F  ILCEN1  rv  u  (J5  )  ,«£(  J'> )  ,RS(  J  13)  ,c  i  (  JH  » 12  (  LA  )  »  12  (  L3  )  1 12  (  L5 )  , 
LFPESSt  °Tf  TtTr.it  P  ,TTOT  ,F  HOST  A,  ;hi:tT  ,VZ  I  »  ^OUT,KP^  ,  C»  ,P  ,G,NK.JTOB, 
2NSTATT:  ,N5E2,NScfi\2»:v^K  i  ,Ncl  ,1ANS) 

WPITCMC    2  CO  ) 
2CO  FORMAT  (5X,»     >CC    YCL    WANT    A    PLOT    OF     thE     MESH    ?',/.'        I    =     YcS 

1       2    =    N'C  •  ) 
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FILE:  MESHGEN   FORTRAN   Al   NAVAL  PC STGdaD LATE  SCHCGL 


C 

c 

20C 

c 
c 

c 


IOC 


lie 


120 


50 


130 

i<;s 

2GC 
20  1 


IF(  IANS.EC2  )    GCTC    2C0 

CJLL  «CLCT  (?=  (J?)  ,F  ?(J6)  ,  ZMAX,  ZMIN»R  VAX,  RMIN»0<+<  Ml)  ,C4{ v2 )  , 
iC4(M3)  »CM,HI  ,CM  ^  )  ,>:■*{  V6  )  ,  C-  ( M7  )  ,04  (M  )  ,  12  (  L  5  J,NSE2»MRR  1, 
2N2tf<SEtNE  1  ,"!C2  ,""*2) 

stcp 
Ef^c 


sue 

1  Z  M£ 

Ifp 

INT 
INT 
CO 
CO 
CCf 
CO 

Ul. 
WP  I 
FCF 

1  TC 
P 

WP  I 
FCF 

1     SF 

2,' 
RE.! 
mF  I 
FCF 

1MIN 

PE« 

w 

F 
1    2 
F 
IF( 

RE* 

FCF 

GCT 

*>  F  I 

FCF 

PF  t 

f  PC 

KR  1 

f»fl 

NRC 

NCC 

N<E 

J  1 

J2 

J2 

L  1 

L2 

Lj 

PET 

ENC 


"GUT  I 
X  ,  I  !"  I 

LIC  IT 
J  f-  -  R  * 
EGSR  * 
VCN    / 

NOV    / 

HCN    / 

yr»i     / 

L2.L3 

Tr{  15 
MiT  (  5 
TmL  T 
PA,)(  1 
Tr<  15 

MAT(  5 

ECIF  I 

SPE 

n(  15, 

TF(1C 
*AT(  5 
',/,  ' 
CU5, 
°  I  T  E  ( 
OR  MAT 
=  N(]» 
E*IM  1 

1  am:.. 

D(  25  , 

MiT{  7 

C  201 
Tc(  15 
«4T  (  6 

C(15  , 

v.1    = 

=    MRC 

**2    = 
L2     = 

2  =  .: 
=  l 

=  ji 

=    J2 
=     1 
=     Ll 
=    L2 
UF.N 


rE  r.\i 
n,-m  i> 

REAL* 

*  K  ,  > 

*  IANS 
l.'vTif/ 

KCUnt 

NT CUf  T 
M'CI  NT 
,L4.  L5 
,  !  C  J  ) 


> 


p,vc(  "J I 

,110) 
>  ,  •    >E 

r   hP  at 
CIFI  r 

,12  )) 

>»•   >e 

1  )    Z  >  * 
15, 5C) 
(ca,  ■ 
) 

-T*>       I 

Et.l  ) 

1  EC)     N 
!5) 


Tl  (yP  CW2  »NCCL2  ,.NSE,  NSE  2,  WQCT, PTQT , TTCT ,RPM , G, R, CP , 

,PV!N,IANS1 

f?(  A-o»P-Z)  »    REAL  *MHI 

RI»J*f.  i NCI.  IC,NP-Pl,.Nclt  P*Nlt  V'N2,MN3,MN4,NSE2,N2 

>P»NSl,MC«NClf  IC 

/  .^hCVi  fMROWL  t.MNSEC 

/  NNt  NCCLi  NC  CL  1  ,  Ng ,  *!R  0  TC  ,N  STAT 

/  Jl,J?,u2,J-,Jf  ,J6  ,J7  ,J-j.J«,Jl;JtJll,J12,Jl3»JlH, 

,  L  c,  'A  l  ,  V2  ,  v?  ,  Vt  ,  N5  ,  Vb  ,  f  7  ,  MH  ,  wq 

MCF     INLET    CONCITIONS:  *./.  ■  *ASS    FLC'WlLBM    PEP.     SEC) 

G    -)     AN-)    TOTAL    f HESS(PSIA) •/) 

CCT  ,TTCT,?T'T 

McP.    OPERATING    CCNSTAMTS:'  ,/,•  F?f",/,'  PiTjr    rp 

S     I  GAMMA) f ./, «  HAS    C CM  ST  ANT    c I P T- L3F /LP M-OF G     R  }  •  ,  / 

hc.iT    CONSTANT    PRESSURE    C  M  BTU/LBM-  OEG    R)1,/) 
,GtR,  CP 

NTEF    GRAPH    SCALING    CONST ANTS : ' ,/ , •  Z    MAX',/,'  Z 

Ax • ,/  ,  '  R    M I  f 4  •  ,/J 

Xt?MN»RMAX,RMlN 

>Lc    YCJ     wANT     TC,     CREATE     A    NEW    MESH     ?',/,'        1     =    YES 

GOTC    1S9 

f*,f-FC«  ,NCCL,MPC*1,NC0L  1  ,  NR CTC d,NST AT9 


,2CJ) 
>  ,  »  > 
*  )    NSE 


1    - 


C 
fRCW  1 

^CCL  l 
4^  ^2    + 


rTEP    NG    CF    SUPER     ELEMENTS    AND    NO    ELEVC^T    ROWS', /) 
,  V  T-  C  '■> 
Ca    +     1 
1 


NSF2 
"JSE2 

NSE 
NSE 


+  + 
4  + 


SLERCUT  INE     I'  ^UT(  Xr,  E  ,  Y  SE  ,NSEC  ,  NTS  E  ,N  E  1  ,NSE2  ,MSE  ,MRR1,N2,LI  VR, 
1 L I M  t  L  I P  t* ,  n  N  S  ) 

♦  +44H4  +  t+-t4<   ++  +  +  ^  +  +  4  f  +  +>>++  +  +  +  +  ++++4.+  +   +f  +  ++  +  +4.^.+  4.  +  +  +  ++  +  +  <.  +  ++.  +  ++.+  f  + 
•f**  +  -*  +  *--t--<-  *-t+  ♦+  +  ■♦  +4  +-,  +  +  +++  4-  +  f  +  +++  ++-t-++++  +  +  +--t--f-t-+4-+-  +  +H-+  +  +  -»-f-+-+4-  +  -»-4-+  I-+- 

+  t 

THIS    SU5FCUTINE    CETA1NS    THE    CISCRIPTICN    CF    THE    5UPEP     ELEMENTS    <•  + 

+  + 

+  +f  +  +  4-  +  t.4-  +  +-+-++++++  +  +   *■+  4+  ++  +  +  +■+  +  +  +  +  +   4  +  -f+f  +  ++  +  +>  + 
+  ♦44t+++  +  t  +  4-  +  f4-  +  +f++  +4-  +  +-+-4--t-+'4-+  +  4-  +  +  +  i-4  +  +-  +  +4-  +  +-++-4-  + 


♦  +4+-t  +  +f  +  ♦  1  +  ++++  ♦+>  +  f  + 
+  4++4  +  4+4  +  4t4+-  +  ++  + 
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1C1 
IOC 
201 


20C 

202 


IPPLIC  I  T    PEU*H  i-H,P-Z) 

INTEGER**    »»,  »Mpi^c,NCli  ICt.«BR  l  ,NE1  ,  P  N1,MN2  ,MN3  ,MNA ,NSE2, N2 
4MPGER*A     IANS 

CCm.N    /]MW    yR  ,yPl  iNCtNCliIC 

cc^mcn   /ycnm/  MRrw,«KOwi,>«NSEC 

COVCN     /KCUNT/    MS,."^CCL,i\CCLl,  Nc.  NOOTC,NST}T 

CCNMCN     /MTINT/    J  I  ♦  J -2  ,  J?  ,  J  A  ,  J1:  ,  Jo  ,  J  7  ,  J i  ,  Jc  ,  J  10  ,  J  1 1  ,  J  12  ,  Jl  3  ,  Jl  A  , 
1L  1  tl?t  L?  ,LA,L=  ,Lc  ,'U,  M2,M3,MA,M5,  'o,  "-7,  <13,M° 
DIJ-ENSI  CI*    XS2  (  1)  ,YSE  (1  ) 
CIKENSICh    N3ZCU)  ,MTSE(  1) 

IFUANS.EC.2l     GCTC    2C2 


IFUANS 

hCCL    = 

J    =    1 

NSS22    = 

CC    ICO 

WR  I  TE 

FCR*A 

FE£0< 

J    =    J 

CCMINU 

CC    2C0 

hRITE 

FCP^A 

1CR     SUP: 

PEAK 

NCCL 

CCMIMJ 

NE    =    >*R 

NE1    =    N 

NCCL1    = 

Nf>    =    NC 

N2    =    NN 

PPR1 

Jl 


f*SE2/2 
=  1  ,N 
15,101 
<5X,  • 
5  ,*)  X 
•»    2 

=  1  ,N 
I5.2C1 
(cx,  • 

E  i  =  y  = 
!,*T    N 


5rZ2 

)    : 

>EMER    Z,R    COORDINATE     FURS    FOR    STATIC!**    ',12/) 
SE«  J)  ,YSE(  J),XSE  (J+1  ),  YSEU+1) 

c? 

1   I 

>E\TER  TYPE  OF  SUPER  ELEMENT  A.N!)  THE  NO  OF  COLUMNS  F 

^  ',!?/) 

T^e  (  I  )  ,NSEC<  I) 

+  \  S  E  C  ( 1  ) 


t 

CV.  *  N'CCL 

E 


LI 


CL  ♦  I 

RPV»  1  -  MRQW  *  NCCL 


J2  ■ 

J2  i 
JA  i 
J5  = 
Jf  * 

J7      : 
sit      ■■ 
JS      i 
JlL 
Jll 

J12 
J12 
Jl« 
L  1    i 
L2    ■ 
L2    i 
L4    '■ 
L5 
It    ■ 
f  1    ■■ 
V2    ■ 

y ' 
y£  > 

f5  " 
M6  » 
M7  i 
ye    : 


1 
Jl 

J2 
J? 
JA 
J5 
J-b 
J7 
J^ 
■  J< 
'     J 


<• . 


J 
■     J 
'    J 
1 

LI 
L2 
L? 
LA 
L5 
1 

Ml 
M  7 

M3 

'■'A 
M5 
ma 
M7 
M8 
NEXCR  = 
NOCI  = 
NE>CA  = 
I  F  (  N  F.  X  C  i 
IF  (NEXC 
IF  (NEXC 
*  RITE (5 


NSE2 
NSS2 
M^Rl 

V  R  R  1 

N' 
N? 

N2 

♦    N2 

(    +    \'2 

1  +    \;2 

2  +    \'2 

:    ♦    N2 


NS  E 


-»    '  El 
•»     3#NE 

+    NS  1 


NCLL1 
NC  C  L  1 
•R.^l 

y!>, c  i 

NCrL  ! 
^CCL1 

K~> 


^2 

I''R     - 

IMI     - 

I  I  "A    - 

•  LT.nj 

.L7.  C) 
.LT. J  ) 


J1A 
Lc 

f  *LL 
C^LL 
CALL 


-DRI  (*!FX 

ERR 2 (NEX 

KR2(NEX 


,200)      NEXC^,NEXCI 


C?  ) 
CI  ) 
CAJ 
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20C    FCPVAK  lCXt'  ^EfCFY  SPACE  AVAILABLE  :  3EAL  =,,I5,2Xf'  INTEGER  = 
1,15///) 


F-ETUPN 
ENC 


SLR«CUTTI^E    T,v£  SH(  >SE  ,YSE  ,  XX  S  E  ,  YYS  E,  Z  C  ,RC  »NSEC»  NTSEt  N7E, 
ie,r  Sc?  tl*  SE,N2,*F  *  !.  !  AN?) 

C    ♦  ♦+  +  ♦♦  +  +  ♦♦♦  +  *  +  ♦+  +  *  +  +  +  +  +  +  ++♦+♦++♦♦+++++++■♦♦++++++++ +  +  ++  +  ++++++  +  4++ +  ♦  + 

C     -»♦  +  + 

C    ♦♦  THIS    SLEPCUTIhE    FPCOtJCFS     4    RECTANGULAR    EIGHT-NQDED  ♦ ♦ 

C     ++  ISCPA^ ANET^  !C    GP  10    TF    AR6ITPAFY    01  MANSION    M   X     N    GIVEN  ♦  + 

C    ♦♦  THE    CCFI^E5    NCCES    Jf    THE    VESh'S    "SUPER    ELEMENTS"  *♦ 

C++  ♦  + 

C      +  +  +  +  +  H+4-++*HHt  +  +  tH+++t*f  +  tt  +  4+>  +  +  t+  +  4  +  4H++  +  tt  +  ++  +  +  +  +H  +  t  +  4++  +  *4 
C       ♦♦♦++♦♦♦+♦+  *  -t  4  ♦  +  ++  ♦-»  *  ♦  +  +  t  +  ++  ♦•♦•-*■  +  +  +  +  +  ♦  •••>+■  ++•+•♦•♦  +  >>++++  ♦-  +  ♦*■♦  +  ,■  +  +  +  ♦♦+  +  +  + 

C 

IMPLICIT    PcU*E(.i-H,F-Z) 

INTEGER**    VR  , 'P1.NCNC1,  IC,MRP  1,'JEI,  NM,  *N2rMN3  ,  vn<v  ,NSE2tN2 

lhTEGE**4     IA.\S 

CCVCTN     /INT*/     PR  ,NR1  ,NC,NC1»IC 

ccmcn   /f»ccuNT/  yHnwtMRnwi 

CC*VC'J    /KOM/    NNtNC^LtKfCLl,  NE,   JRJTCtNSTAT 

OINSNS I CN     *SE(  1)  tYSE(l) iXXSE<1)  tYYSE (llf ZC(1) tRC(l) »B(L) 

CINC,-S  ICN    NSfcC  (1  )  ,*:TSE<  I),MT2(  1) 

c 

IF<  IANS.EC1  >     GCTC    2G 

CC    11    1  =  1  ,:  -i 

FEflO(2C  ,12  )     ZC(  I)  tPCd  )t3(I) 
12  Ff=M4T  OF  15.  II  ) 

11  CCMINUE 

GCTC    IOC 
20  YCIV1     =     FLCAT(NRl) 

YCIV2    =     FLCATC") 

I  =     I 
TJ    =    1 

II  *    1 
If    =    1 
NSTAT     =     C 
r>FCTC    =     C 

CC     10    N     -     CM* 

ZC  (  N  )     =    J  .  C  C 

SCI  \  )     =    0  .CC 
10  CCMINUc 

CC     100     J    =    i,NSu 

IF  (J.  EC. 1  )     C~TC    120 

IF(NTSclJ  )-MSE(  J- 1)  )     120  ,120,140 
1AC  IFf  IV  ,LT.  :  )    GCT'.l     150 

N&OTC     =    I  I 

IM    ■    C    -    IN 

GfTr,    12C 
15C  NSTAT     =    I  L 

IM    =     C    -     IM 
120  IT    =     rSECU  )     *    MRCW 

00    1  1C     L     =     1,1  T 

NTE(  IL  )     =    *  TSE(J) 
IL     =     I  L     ♦     1 
11C  CPMTIfLE 

NNCGL  J    =    2    *    NSECU  )     >    I 

Nfl     =     NNCGL  1 

NC    =    -NCI    -     1 

XCIV1     =    FIC<!T(!*C1) 

XOT  V2     =    p  LC*T(,*C  ) 

XI    =     )SI(  I  ) 

X2    =     >SE(  1*1) 

X3    =     >S  =  (  I     +    2  ) 

XA    =     >S  =  (  !     ♦    'i  ) 

Yl    =     >SE!  I  ) 

Y?    =    >  S  F {  I     +    11 

Y3    =     >£c(  I     +     2  ) 
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Y4  =  YSE(  I  +  3  ) 
XDIP2  =  X3  -  XI 
XDIF3    *   X4    -    >2 

YTIF2    =    f  1    -    Y3 
VHIF3     =    Y2     -    Y4 
XINT2    =    XDI F2    /    XII  V2 
XINT2    =    AC  I  F3     /    XCI7? 
YINT2     =    Y0IF2     /    XCIV2 
YIMTi    =    YCI F2     /    XDI  V2 
ISEL    =    -1 
DG    2C(    K    =     UNCI 

X  C  1  F  1    =     >  1    -    X  2 

YC  IF!     =    Yl*  Yl     -    Y2*Y2 
IF  (ISEL)     2  I  C, 210 #220 
21  C  XI  MI     =    XCIr  1     /    YC  IV  1 

YIM1     =    YCiFl     /    YDIV1 
y  R  F    =    M  R  C  W  1 
GCTC   22C 
22C  XIM1     =    XLIF1     /    Y0IV2 

YIM1    =    YDIF1     /    Y0IV2 
«.  p  F    =    vpCrt    +    1 
22C  DC    3C0    IC    =    1  ,    MPR 

IC1    =     IC    -     I 

XXSE(IC)     =    XI    -     FLOAT  (IC    -     1)*XIMT1 
IF{  IC.N-:.l  )     GOTO    23  1 
YYSE(  IC  )    =    Yl 
GCTC    2^2 

231  YYSE(IC)     =    nSQPT(  YYSE  (ICl)*YYS5(  IC1  )     -    YIM1) 

232  ZC(  IJ  >  =  XX3c( IC  ) 
RC(  IJ  )  =  YY3C  I  IC) 
IJ    =     IJ    +     1 

20C  CCMINUE 

XI  =  Xi  +  XINT2 
X2  =  X2  ♦  >  1-NT3 
Yl  =  Yl  -  Y INT2 
Y2  =  Y2  -  YINT3 
I  5  E  I.    =    -  I  S  :  I 

20C  CCNTIMJE 

ISEL     -    -ISSl 
I J    =     I J    -    VR0W1 
I    =    2* J    +    1 
IOC         CCMINUE 

^o  ITE  <  ^.^CC)     MRC*,NCOl 
4GC  FCF-VATt  1CX,«     M«PER    OF    ROWS    =     '  ,12,1  EX, »     NUMBER    CP    COLUMNS    =    • 

1  ,13/) 
k  P  I  T  L  (  6  ,  *•  1  C  )     N  E  , \ ■*> 
41C  FCCVATtSx,'     TCTiL    NU^ER    OF    FLENENTS    =    ',I-t,10X, 

l«     TOTAL     NL-M3ER    CF    NCC5S    =    '  ,w//) 
RETURN 
ENC 
C 
C 

SLERT'JT  Tf^E    CCNEC  (MSEtME.NOOE  ,NSE,VJ2,.';E  L,MPOT0D  ,NROTCE  ,NSTAT8  , 
INSTATE,  I  / N  i ) 

C      +  +  +-H-H+  +  +l  +  H++  +  +t+»+  +  +  +  +  +  +f4-t  +  ++  *  +  ++  +  ++  +  +  ++  +  +  +  *+  +  +ft++  +  +  lf  +  +++++  +  + 
C      *  +  +  +  +  1  i4  +  +  + +  4 +  +  +  +  +4  + 4  +  +  +  +  +  +  +++++*++ +  +++■¥  +  +  +  ++  +  +  *■+++ +  +  +  +  +  +  +  +  ++  +  + ++■+*  + 

C++  +  + 

C    44  THIS    SLeRCLTINE    PRODUCES    THE    C  C>'lC  T  I  VI  TY     v^TRTX  *■  + 

c    ♦  +  *+ 

C      ♦4++H4++++*H++  +  +  +H+  +  +  +++++*  +  +  +  +  +++r*++  +  +  +tf++++  +  +  +  *'*+++++t+  +  ++  +  +  + 


C 


i > f l i r. i  t  seAL*P(  ±'Htp-i) 

INTEGER**    v<  tVR  ItNC  ,  k.'C  1,  !C,MRR  1  ,NE1  ,  vMi  VN2,MM3  ,  *N^  ,N  SE2  ,  \'2 

I  M  E ""- c  R  *  4     I  A  \  S 

CCvyp'i    /^CCliNT/    fPQUtMP.CVtl  ,«NSEC 

CCfMCN     /NCCJr.'T/    \r  ,  \COL,NCOL  1,  NE  ,  NRO  TO,N  STAT 

CCfNCN     /IM4/     ►HfNRirNCf.NCli  IC 

0IP5NSICN    \30E  (D     i,  1)  ti\T3c(  1  )  ,NTE  (1  ) 

IF  (  IA.NS  .EC.2  )     GCIC    6  CI 

K    =    1 

PK    =     1 
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40 
64 


601 


71C 
7CC 
tQC 


.3  ) 

,4  » 


+  44 

♦  +  + 

♦  + 
+  4 
+  + 

4  + 
4  + 
+  4 
+  + 
+  ♦ 
•f  + 

♦  4  4 
4+  + 


NFCTOP    = 
f>FCTCE     = 
NS1AT*     = 
NSTATE     = 
C    =1.00 
CC    40    IC 
Kl    = 
K2    = 
K3    = 
K4     a 
K5    = 
K6    = 
K7    = 
KP.    = 
NOOE  ( 
NODE  ( 
NODE  ( 
NC  0  E  ( 
NCDC  ( 
NCOS  ( 
NCUE{ 
NOOE  ( 
K     =     K 
MK     = 
CU    = 
IF(OC 
K    =     K 
VK     = 
C    =    G 
CCMINUF. 
V?  IT:"  (6  , 

FTP VAT  (    I 

WF  ITC  (6  , 
IF(NCGTC 
IJKL  =  N 
Uf2  =  N 
IJK3  =  N 
IJK4  =  N 
NRCTQ3  = 
NPfTG"     = 

N«fiT"  = 
KSTCTE  = 
CCNTINUE 
GCTG  &0C 
CC     700     I 

R  E  A  0  i 
\'C 

FCRMA 
CCr.TTfilJE 
FET'jr.\ 
EN.C 


SL!?RrOTINE    I  M 
LFFESS,TE>F,VZI 

+++++++  +  H  +  t+tt 

Th  IS    SIP 

THFCUGh 

SLE^GUT! 

W  J-  E  R  fc  T  h 
TFE  S'JO  = 
OF     THE     S 

ANC    THE 

+  +  +,  +  +  +  +  +■44+4+4 

If-FLIC  IT    c;«  L* 
INTEGER* 4    f'?  ,» 


C 

c 
c 

=  L.N 
K  *  MP 
K  1  -  P 
K 

K    +    1 
K     +    2 
K2    ♦    1 
U    4    2 
Kl    ♦>    1 
IC1  ) 

ic,:) 
ic 

IC 

IC  ,z>  ) 

I  Co  ) 
IC  ,7  ) 

i  ce  i 

4       ■> 

m<  ♦   i 

F  L  C  \  T  ( 

•  N  £  .  Q 1 
4    MP 

1 
♦    1.0 

£4) 

I  •  ) 
£*) 

•  _  ■»  •  *-* « 
PC  TO 

F  C  TO     ♦ 

5  1  iT 

ST1T  + 
NCD'E( 
NCOE  ( 
NCDEI 

n  co  e  ( 


El 

CW1    *■    ^ROW 

F  C  U     -     v  K 


=  Kl 
*  K2 
=  K3 
=    :<4 

=  K5 
=  K  * 
=     K7 


IC)  /FLCTINR) 
GCTG    40 

+    2 


fiNC.NSTAT.EQ.O)     GOTO   bGO 
M  F  C  W    -    1 

M  p  C  W      -       ] 

I  J  K  1  ,  3  ) 

I  J  K  2  ,  7  ) 
UK  3,3  ) 

:  j  k  i ,  7 ) 


=  1 
:c ,? 

CE  »  I 
T{?I 


)    .VC0E{  1,1)  .NOCEIT,  Z) 
),A.COE(  I  to  )  ,NC>CF.  (  I,  n 


NfCEl  I  ,3)  ,NO0E<  I  ,-) 
NOOE  (Itd)f MTE( I  ) 


T2IRC 

,CCP 

*■+■>■  +  *■ 

FOUTI 
TH?  ij 
HE  H 
E    VAL. 

cut  ir> 

TF  e  JM 
BCGNO 

+  +  +  +  + 
+  +  +  +  + 


,\CCE 


+  +  + 
+  +  + 

N  r 

Sr 

c  r 

jr.: 

E     C 
Ft! 

A  <r 

+  +4 


+  f 

c5 

0 

cv 

NC 
C 

+  + 

+  ♦■ 


t'iBC 
E2trf 

+  -»•+  + 

f  ♦+•  + 

m  P  U  T 

GU3 

TEP.1 

F    PS 

PijTP 
TIC:V 

on  oi 

■n-  ■•-  + 
+  4^  4-  + 


PR 
+  + 


SI, 

l.N 
+  ++■ 
•♦•  +•  + 

TH 
UTI 
FS_  ' 

Th"c 
PC  1 
CNS 

♦■  +  ♦• 

4  +  + 


.^HO  !T\ 


+  t  ♦ 


T'"> 
IN 

TH 
iF 

n-  + 


+  >■  + 

m  r 

PL" 

NC 

IT] 
C      r 

"Th 

+  +  +■ 
+  +  f 


FC 

Oli 

s 

AL 
t 
+  +• 


H'' 

If 

f  ♦ 

t  ■*• 

C.f7 

T. 

i\ 

P5 

PR 

*-  + 


TT, 

r  -*; 

+■  +  + 
+  +■  + 

'JO! 

GIF 
1ST 

QGR 

+  +  + 


TT 
S) 

TT 

=  R 

IC 
S  I 
NO 

Ay 
+•  ■•• 


CTtrtCC^.PT' 


+  +  + 
•»■>  + 


<-\ 


0. 
rtUT 

ITI 

TU 

+  t  + 
♦■  +•  + 


-t-  +  +  +■  +  +•+  +  +-<-  + 
+■  +  +•  +  •♦■+  +  +••♦■•♦-  + 


10. 'J 
CNr- 
PBC. 

►  +  +  +  +  +■  +  ♦4  +  + 

+  44+4  +  4  4444 


4  + 
+  + 
+  + 
+  + 
+  + 
t  + 
4  + 
4  + 
+  + 
+  + 
+  + 
+  + 
4  + 


£(  w-H  ,P-l) 

til  ,hC  ,,'C  1,  IC,  "RF  1,ME1  ,  MM,  VN  2, 'IN  3,  MM  i  ,MSE2,N2 
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FILE:     MESHGcN       FORTRAN       Al       NAVAL    PC STGRAJLATE     SCHOOL 


71C 

70C 

10 
IOC 


21C 


22C 


2CC 


20C 


INT 
CCf 
CC> 
CO 
DIf 
Clf" 

c    = 

R  = 
CC 

I?  ( 

NNe 

CC 


CCN 
GC7 
CC 

ccn 

VK 
K     = 
JK 
I     = 

f  - 
CC 


500 


CCN 
K  = 
JK 

Nee 

NSC 
CCN 
GC1 
CM 
Pl-L 
ARF 
C4L 
4FE 
CL£ 

t:v 

PRE 
RHC 
VZ  1 
NC 
PS  I 
FSI 

cc" 


CCN 
P  S  I 

CC 


EGFP* 
YCN  / 
M  C  N  / 
'er\  i 
E.vSIC 
ENSIC 
i.4C 
5^.2 
=  32. 
IANS. 
C  =  2 
700  I 
R^AO  ( 
Fnovu 
TI^UF 
C  30C 
100  I 
NBC(  I 
TI^UF 
=  1 
=    i 

MRR  1 

=    K 

VR?  1 

2    * 

200     J 

IF  (My 

NBC  (  K 
K  =  K 
L  =  L 
MM  = 
GOTO 
IF  <  VK 
NBC(  K 
L  =  L 
MK  = 
K    =     K 
MM  = 
GOT  j 
N6C(  K 
L  =  L 
MK  = 
K  =  K 
«'.)  a 

T  T  M|  .  C 

'     *       I   V*   l_ 

MP  -  1 

=     N? 
(K)      = 

(  K  r  1  ) 

T  INUE 


1  I 


IAN.S 

C'jr.'T/    f  hO.MPOWl  tfNSEC 

njf  T/    NN.NCHLt  \COLlt  N£,NROTC  tNSTAT 

T-,  /     MR,,VP.1  ,NCiNCl»  IC 

PC  ( 1  )  •  P  S I  ( 1 ) 

NODE  IN  sit  1)  ^3C(  1) 


ADO 

.1  )     CC^C    10 

MCCL1    +    MPOWl 

1  .  N  N  r»  C 
,7  1C)    NfcC(I) 
15) 


-    2 


=     I  ,MPR1 
)     =      I 


1 


+    1 
(NC0L1    -     1)     +    K 
=    K  ,« 

.GT.O)    GCTO    210 
)     -    L 

♦  I 

♦  1 

(     -    MM 

tcT.O)    GCTC    220 
)    =    L 

■»    M  H  C  V»  1    -     1 
C     -    MK 

♦  1 

C    -    MM 
2CC 
)    =    L 

4      MPCVl 

r    -    vk 
+    I 

C     -     KM 


♦    2    * 

J 

»    'i2 


(NC0L1    -    2)    +    1 
+    1 


I    =     1 

C2    = 

a  *   2 

L    FLC 

A) 

NT     = 

0  =     t 

ss  = 

STA     = 

=    VT 

=    M°  C 

1  =     f 
D    =     P 

0 
5oO  I 
PSI  (  I 
J  =  J 
T  I\"JC 
(  M  K  C  V> 
600  I 
Ml    = 


-    1.  no 

.  C  C    /    G  m  1 

FC  iMPCH  )     *     CC  (MRCW1  ) 

.l4L5c.Z^4    *     (     =  C(IJ     *    RCflJ     -    3HUQ?)    /     144. OCO 

FCT(*«UC"!"»PTCT,TTCTfKHOTTtVTGT,XVEL,CP,R,GVl  ,G«1I, 

l.COC    -    >\FL    *    X'.EL 

1C7     *    CUifT 

f  TCT    -»    CL  £MT**<G*G  *1  I  ) 

CT    *     XVFL 

VI    -     1 

CCT    /     (2. COO    *     2.1415S265*) 

S  II    /     CLC£T  (NC  ) 

=    1  .NC 
)    =    PS  1 1     -    FLCATU)     *    FSIC 
♦    1 


1)  =  C.CCC'JGCOOOOOOOOO 
=  1  ,  N  E  1 
NC^C  (  1,1 ) 
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tQC 


ICC 


ICO 


IOC 


M2 

M3 

NI4 

Nil  5 

H16 

M7 

MS 

FSI  ( 

PSK 

P5I  ( 

PSH  M6) 

FSI  ( N  17  ) 
CCMlNue 
RETURN 
ENC 


NCOE< I 

NCD~< I 
\COc(  I 

nook  i 

NC~»_(  I 
NCSEI 1 

NCOt  <  ! 
II)     = 
12  )    = 
13)     = 


2  ) 

?  ) 

'■»  ) 

5  ) 

f  ) 

7  ) 

a  ) 

F  ?  I  (  \  I  *. ) 

ps  I  (r.i?) 

F  S  I  <  M  M 
P  S I  ( N I  5  J 
FSI  (N  15) 


SieFriUTlUE    EPPKNEXC*) 
NS>CF    =     -NEXCR 
hP  ITE(AflCC)     NEXCR 
FCPMATt'     EXCEECEC    fAXlPUH 
l«i  15//) 
STCF 
ENC 


SLEPOUTIhE    EkRZ(NEXCI) 
NEXC!    =    -NEXC! 
V»FITE(6,1CC)     \  E  X  C  I 
FCF-MATM     =XCLECEr    MAXIMUM 
1»  t  15//  ) 
S1CP 
ENC 


ALLOWABLE     SPACE     FOR    REAL*8    VARUdLrS    BY 


ALLOWABLE     SPACE    FOR     INT*2    VARIABLES     3Y 


SLFPCUTINE    cc« 


(NEXC4) 


WRITE* fi 
FCF«AT( 
l"  .  lb//  ) 
S1CP 

ENC 


,1CC) 
•     EXCi 


NEXC4 

ECEC  MAXIMUM 


MLOUArtLE     SPACE    FCR    IMT*4    VAPIAQLES    ?Y 


44  + 
i-n 
44 
+  + 

+  + 
44 
444 

444 


SLERHUT  IN  E    T  AS  K  1  (  RC  .  >J .  N  S  E2  ,  MR  k  1  ,N  2,N  ^0  70  8  ,NP.OTOE  ,NSTATC ,M ST AT 


this  slepcltine 
pactcks  f'~^  the 
ccnfpssscp. 


CCM°UTFS     THE    TANGENTIAL 
RCTCR    ANC    STATC3    JF    THC 


PLrCK4Pp 
NASA     1  \ S  K 1 


+  ++  +  +  4--t--n-<-4--n-i--»->-t--t-4-+4--»--t-4-*  +  -»-»- 
•44  4444-444-44-t-4-44-  t-44++444-«-444  + 


+  4  +  -t+  +  +f4  +  4  4+4  +  4  +  H  +  4Ht+  +  +t+*t+  +  +' 

IfFLIC  I 
INTFOF^ 
CC^MON 

CCNivO'l 
DIVFNSI 
IF  {  IAMS 
ffl     =     N 


F  ) 

+  4-4- 

4-4-4 

-t-4 

4  + 

4  ♦■ 

44 

♦  4 

4  4  4 

444 


NN3 

PP6 


T    3EAL*?( A-H.P-Z) 

*4    P*f.vFl  t  NO  NCI,  [C»MPM.f.'4£I,  I*N1,  MN2fMN3t MN*,NSF2t N2 

/NCCU-\T  /     yPQV.  ,  4K0W1  ,MNS  EC 

/NCCUNT/    ^,\0:"L,\rrL  I,  NE,NROTCfMSTAT 

/  INT-/     NS  ,H,L  .NCtNCli  IC 

CN     CZ  (  I)  ,P  (1) 

.EC. 2 !     CCTC     700 

WCTC3     >     MnCNl     -    I 

M  ]    4     1 

v2     4    *RC* 

V-      4       1 

Si  ATS     4    PR  CHI    -     1 

v  5    4    i 
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FILE:     VESHG<£,\       FCR7PAN       41       NAVAL    PCS7GPAOLA7E     SCHOOL 


IOC 


20C 


20C 


4CC 


50C 


60C 


V*7  =  P* 
KfE  =  W 
CC  1GO  I 
EUI  = 
CCNTINU6 
CC  200  I 
PCI  =  »C 
R7CL  =  C 
i.2433G0 
RSIGL  = 
PC  I    *    P 

4     2.39S 

B(  II    =     1 

CCMINUE 
CC  3CO  I 
PC  I  =  3C 
F7CY   =    c 

*  RCI  * 
PCI  *  R 
CSIM  Pf 

RCI    =    PC 
RSIGM    = 
PCI    *    4 

-  4.325 

e  {  n  =  i 

CCMXNUr 

CC    4Cj     I 

?C  I    =    PC 

R7C7    =    C 

1.C633  c 

■*  a.ni  f 

C7A*'(  PC 
RSIGT    = 

PCI    +     1 

-  S.5G6 

et  i)  =   : 

CCMI-JUF 
DC  5CO  I 
PCI  =  PC 
S7NC!     = 

7 .  e  s c  *  3  o 

C7AM PC 

5SIGL    = 
5*52662 

-  1.311 
STETML    = 

RCI*?  C  I 

+    2.25c 

B  (  I  )    =     1 

CCNTTVJ? 

CC    600     I 

KI    =    R  C 

S  T  i1  C  M    = 

7  .5^625 

CT4f-i{  t-C 

SSIG.'"    = 

c.590£c 

2.c113<: 

B{  I)    =     3 

ccMiuur 

CC     7GG     I 

PCI    =    PC 

SI^CT    = 

*FCJ*pC 

1.2912c 

SSIGT    = 

2.1C-17C 

♦  1.077 
STETyT    = 

FCT*PC  I 

-  C.  194 

et  i )  =    l 


6   +   yrcw 
i  *   l 
=  l  ,nc> 

1.0  GO 


=    NPCTCEfM^l 

I) 

C1311*3    -    2.*S6720-4    *    PCI     -    1.030910-5    *    RCI    *    RCI    ♦ 

1C    *    PCI    *    PCI    *    PCI     »    RCI     *    PC  I 

.C4972    +     1.222510-3    *PCI*RCI    ♦    1.463660-3    *    PCI    *    RCI    * 

I    *    PCI    -    1.3H865D-3    *    OC-IS(PCI)     -    7.42-tc^o-4    *OSIN(RCI> 

210-5    *    CTAN(RCI)    -    2.12^71     *    DLGG(RCI) 

Cw.    -    PTCL    *    RSIGL 

=    f*  f  2  » <v  (•  3 

I  ) 

140493    -    5.330610-3    *    PC  I    -     3.280440-11    *RCI*    RCI*RCI 

RCI     *    PCI     +    2.1590<?0-15    *    'CI    *    PCI    *    PCI    *    JC I    *    =?C  I    * 

I    *    RCI    *    RCI    -    A.c527fcO-4    *    CCGS(RCI)    -    1.2162D-4    * 

)    -     3.Pt0420-6     *     DTiM(KCI) 

i  i 


RCI     * 


G.9594    ■*    .255765    *    RCI    -    2.  £2C7CD-6    *    PCI    *    pi 
45133C-3    *    TSPURCI)     -    1  .OS  3790-4    *    OTVi(?CI) 
c    *    DLCG(RC1 I 
CO    -    FTC!"    *    R  S I  Gxi 

=    ^'4  ,NPCTO£ 

I  ) 

C19<=73fc    -     1.111320-3    *    RCI     +    1.34790-6     *    PCI*«CI*CC!     - 

-14    *    RCI    *    RCI    *    PCI     *    RCI     *    RCI    *    PCI     *    RCI    *    RCI    *-<C 

6D-5    *    lCCS(RCI)     *    2.684220-5*OSlN(RCI 1    -    5. 721390-7    * 

) 

l.c-Z5c    ♦    .656044    *    RCI    -    3.C-E910-6    *    RCI     *    PCI    *    RCI     * 

65560C-:    *    DSIM(RCI)    -    1.364770-4    *    DTAN(RCI) 

c    *    n  L  0  C-  ( P  C  I J 


65, 

c    *    H LOG (PCI ) 

C:    -    STC7     *    R SIGT 

=    NST^TP  ,    HV5 
I  ) 

,cieeca9  +   ?. 

5   *    DCQStPCU 

) 


311570-3    *    "CI     +    1.600960-5    *    RCI    *    RCI    - 
♦■    4.832180-5     *    DSIN(RCI)     *    3.940030-7    - 

CI  +  3. '54320-2  *  PCI  *    SCI  - 


'CI   - 


.015876^  +  2.536210-3  *PC  I  *  ".351910-6  *  PCI 

-5  *  CCCS(RCI)  +  6.894990-5  *  OSIN(PCI)  -  4.16541C-6 

) 


tC1549    *    PCI    +    1.134240-2    *    RCI     *    RCI    - 
d*PCI  *RCI*RCI*«C  I*PCI*PCI     + 


*    WCI    -    3. 6004  TO- 11     *    Rf.I*TCI*3CI 


.17  . 

-13    *    RCI*RCI*P 

-4     *     CT4N(RCI  ) 

CIO     -    STVC^    #    S3IGM 

=     ^P,    N  STATE 

I) 

.C0994821    ♦    3.148580-3 

^*pcr   +  :,30?2?o-5  *  ocos(-ci)  -   i. 031250-5  *  osinirch   - 

-5    *    CT^(  RCI  ) 

.  9  0  1 2  f    -    .  5C6C55    *    "CI    +    1.522340-2    *    CCI    *    RCI     - 

-11    *    PC  I*-P.  CI*PCI*RCI*RC  I*RCI*RCI*RCI 

ID- 4    *    L:  Ul\i  (PCI  I 

C.Ti5  1.°;    +     "..525*0-4    *    PCI     *    PC  I    -    6.340-14    *    PC  I    * 

CC^HCI^FCI^RCl^PCI^RCI     +    1.6t0°80-3    *    OCOS(RCI) 

17    *    C  L  C  G t  * C I  ) 

oco   -   stet:-"t   * 


;tmct   *   SSIGT 
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FILE:    WESHGSN       FCRTP/N      Ai       NAV\L    PG3TGXADIATE     SCHOOL 

70C         CCMINUE 

RETURN 
ENC 

C 

c 

SteRnUTlhE    FlLGEN(ZC,RC,i?,PS  I»  NC!DE,NTC  ,NRC  tP*' SSt  PT?T  ,  TE'4P  f  TTCT  , 
1PI-CSTA  ,PI-CTT  ,V2I  »wOCT,i<P«,CPtf<,Gt  NR0TCS»NST4TB» 
2N$E?,HSS  tN2t?»RRl  »NE1»IANS) 

C  ♦  4>4"4>44  4  44+44  4444>4  4  44  ♦  ♦  +  +  ++  +  f*  +  +  +  t+4+  +  t++  44++++++++++++++++++++++++++ 
C  ♦44**44*4++t4+*4+*+t++*+tt4++t+***++4+*+4*++++++*++++t++++t+*++t+++4 
C      44  4  4 

C    44  TUS     SLEPCUTINE    WRITES    THC    OUTPUT    OF    TH=    PROGRAM  +4 

C    44  CMC    DISK    STORAGE.       THE    TILE    ?EF  INI  TICNS     4RE    LISTEC  +  + 

C44  lb    THE    EXEC    F  ILES    TURHOl     \NC    TIR 60 1  A.  +4 

C      44  44 

C  4444444444444+++  +  +4  +  ♦  +  ♦  +  *  +  ++  +  +  +  +++*++♦++  ++++++++++++++++♦++++++  +  +  +  +  ♦ 
C      444444+44+++++4++4++   +++44444444444   t++ +44  +  +  ++  +  +  +  +  +  +  +  +++*  +  +  +  +++  +  +++  +  +  + 

c 

IMPLICIT    REAL*EU-H,P-Z1 

INTEGER**    VR»VF1,  NC,\C1,  IC.MRR  1  ,ME1  i  MNi,  MN2»MM3  ,MN4  ,NSS2«N2 

IM'(.^*<     I5.N5 

CCNHON    /INT'tV    fPffClvNCtNClf  IC 

CCWCN    /KrjM/    «ROn,*ROWI 

CCM»CN    /NCCJN7/    ^f.\rCLNCnLl,Nr,NPOTC,NSTAT 

CINE'  S  I  C.N     ZC  <I),*C{  l)tB(l)  ,PSI  (I) 

CINFNSI  Cf    NOCE  (\F  I,i  I.VTfl  1  )  ,NECI  1) 

c 

IFUANS.  EC. 2  )     C07C     1C1 

CC    100     1  =  1. 'i?> 

WRITE  (2C,  11  C)     ZC(  I)  ,SC(I  )  ,E<I) 
11C  FCV'«M  OF  15. 11  ) 

IOC  CCMINUE 

V»a  ITE(  2  5  ,120)     NN,''"Cw,NCCL  ,M«r,  y»l,  NrQL1.  ,NR0T03»  NST  ATP. 
10  1         WR  ITt(25  .121  iPPESS»PTGT,TEMP  ,TTOT,GHCSTA  »RHOTTf  WOOT  »CP  ,P  ,  G  ,?,?«  ,  VII 
12  C  FCFM.'Tt  7  15) 

121  FCPMATI  4f  11.  6,2?  12.  6,/,4F12.  7,Fe.  1,F13.8) 

IF  UANS.EC.2  )     Cn-TC     301 

CC    200     I     *    i  ,     f*El 

WRITE  (2C21C)     N0CE1  I,  I)  ,NCCE(I  ,2  )  ,N0DE(  1 ,  3 )  , NODE < 1 ,4) , 
1  NCCE  (I  ,3  ),NCCE{  1,6  !..N"CF(  I,  H,  N  306  (  1,3),  JT5(  I  ) 

21  C  FORMA!  {SI  5) 

20C  CCNTI.NU6 

L    =    2    *     KCL1     4    2    *    MRCW1    -    4 

CC     200     I     =    1  ,L 

WRI^E  (25,  :UC)    NBC  (I  ) 
21  C  FOPMn  i  15  ) 

30C         CCNTINUE 
20  1  CC    400     I=l.'ir 

WF  I  T5  <+C,  -1C  )     CSI  (I  ) 
MC  FC!RMA1(Fi5«ll) 

40C  CCMi'lUE 

RE1LPN 

ENC 
C 
C 

c 

SLEPHUTINE    FLCFCT(WCLT,PTCT,TTCT,RHOTT,vTnT  ,XVEL  ,C  ,■»  ,Gyl  ,GV  I  I  , 
lA^EA) 

C  444444+4+  ►++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
C  +  +  4  +  +4+  +  +  +  +  +  +  +++  +  ++4-.  +  +  +  +  ++  +  +  +  +  +  +  ++  +  +  +*-++  +  +++  +  +  r++  +  +  +  i-  +  +  +  +  +  ++  +  +  +-r+-«-  + 
C   +4  +  + 

C  4+        THIS  COMPLIES  THC-  NCNOI VE  NS1 CNA  L  VELOCITY  X  +  + 

C++  +4 

C  +  444444444+4  +  +  +  +  ++  ♦+♦+  +  +  +  +  +  ++  +  +  +  +  ++  +  +  ++++  + ++++  +  +  +  ->-  +  +  +  +  +  +  ++  +  +  +  +  +  +-r+-<-  + 
C       4  +  4444  +  4  +  +  +  +  +  +  ++  +  +  +  +  +  ++  +  ++++  +  +  +  +  ++++++  +  +   +  +  ++++  +  +++  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  4 


c 


II*  FLIC  IT    FE^L*<?(;-G,F-Z  )  ,    REAL*4(H) 

INTEGER**    i*P  »**H1  ,NC  ,NC1»  If  ,PFF  1..ME1  ,i''M,  XN2,MN3  , MN4,NSE2 ,M2 

CCPwON    /1NT4/    m  ;,,yK  1,NC,<\'C  1,  IC 

CC^M')N    /f-cr:jr\T/    y  i=cw  .mrowi  ,mns  CC 

COM^N    /NCDJM/    pj,\,NCCL,  NC0L  i  ,  NE,  K°Q  TGtNSTAT 
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IOC 


IT    =    0 
XVEL    =     C 
EPS    =    I  . 
PJ    =    778 
HHCTT    = 
V7CT    =    C 
Ft-  IL    =    * 
Ph  I    = 
C  IFF    = 
IF  (C1F 
CPt-IDX 
XVEL    = 
IT    =    I 
IF(  IT 


.ICO 

cn-oe. 


2.1 

*    1 

,oc 

(Fh 


(F  r  jt 

L  JCr^T  (  2 
*CCT     / 
XVEL    *     (  l.C 

c  t  e  s  (  p  h  1 1 

F.LT  .EPS  )  C 
=  PHI *J  l.C 
XVEL     4     (PH 

T     4     L 

LT.21)     GCTC 


74 

4-».Ono)/(R    *    TTOT) 

C    *    CP    *    3  J    *    TTCTJ 

CTT    *    VTOT    *     i'^i) 

CJ    -    XVEL    *    XVEL)--'!*GP1I 

-    PHI  ) 

CTC    2UO 

C/XVEL    -    (2.D0*XVEL  )  /  (GM1*{  1.  OOO 

IL     -    PHI)     /     DPHIDX 

IOC 


-    XVCL*XVEL  )  )  ) 


11 

20 


WF  ITF(5,  110) 

FCFW,.T(  »     CONVERGENCE    NCT    REACHEC',/) 

CONTINUE 

V2  I    =    XV  EL    *     VTGT 

RETURN 

EN  C 


SLE>PrUTINE  '1PLCK 
1CWC0VFC  ,CnZCl  tC 
2NEltNC2tMw2) 

444444<4+  +  +1<*  +  «-  +  4444 
4++44444++44-»  +  ^  4  ♦•  +-r  4 
4  + 

44  ThIS    SUePCUT 

♦+  EIGhT-NCOE    I 

44 

4+44+4  »  +  +  4-+4<l4  4  +  44  4+4 

+  444  +  44*  +  +  +-f44+  +  4-4  44  + 


ZC ,?C»ZMAX, ZM  IN. RMA >,RM  IM.OHZC ,GHPC  , 
HRCl,CZC,0PCii<LK.NSE2,MrtRi,w2fNSE, 

♦  ♦■  +  +•  4  4++++4++  H+H+  44  +  +  +  +  +  +4t-+  +  *-*+-t-4-+  +  +  4  +  f+f+f  + 
+  +♦++♦•♦•+  +  +  +  +  ++44  ++  +  +  +  44>4  +  +  +  +4++  4+444+  +  ++  +  +  +  +  +  4  + 

+  4 

INF    CREATES    A    TEKTRCM1X    ftl8    PLOT    CF  +4 

SCFAriA.VETRIC    ELEMENT    VESH.  4  + 

4  4 
44444  4+4  +  4444  4+4  4++  44++  4  +  ++++  +  +  +  +  +  +  ++  ++++++++++ 
+  +  +  +  +  +  +44  +  +  +  +  +  +  ++  +  +44+444+++44++  +  44  +  444+  +  -»-  +  4  +  4  + 


*PL0C0' 


IPF 
INT 

LCC 
CC?- 
CCW 
CCN 
CCP* 
CC" 
CC> 
CIN 
C  IP 
Olf" 
D  IN 
CI> 
CAT 


L  I  C  T  T 
PGr^  * 
ICAL* 

yn.M    / 

*C  J 
WCN 
MCN 
MC  N 
VON 
CNS  10 
ENS  TC 
ENS  10 
E  K  S  I  C 
P  IS  S  I  C 
A     "IT 


REA 

4     vo 

1  TI 
FFAR 
NPA^ 
CF^n 

INT^ 

fcru 
kcu 

N     CH 


is     OH 

r>    /O 

|\     KL 

f*     II 
LI/' 


l  *  e  (  a 

» y  ?  i » 

TLI 
/     F8( 
/     I2( 

-.  /  Q  4 
/  *e  , 
ST/  v 
.NT/     N 

Z  C  (  1  > 

iCll  1 

a ) ,  b 

K(  I) 
TL  i( 
EICH 

*•*  *  *  < 


-H,P-Z) 


P  E  AL  *'♦  (  C  ) 


-Hi  p-Z)  »     u  bOL**  I  I  ) 

ISC  ,NClt  ICNE1  tNl4,MRl4»NCi<4»NCCl 

5CCC) 
2  J  C  C ) 
(3  0  00  ) 

,*ci , .:,  ic 

^C.h  t  "'ROW  I  ,MNS  ECf  LI  M  I  ,  LI  MR  »  LI  M  + 
N.NO'JLt  NCCLlt  NE»  '.ii:  3  TO,.'!  ST  \T 
,CHr<C(l)  ,OVZC  (  1)  ,0V  FC  (1  I  ,  CXYL  (4  ) 
)  .PHRCKl)  tCZC(l)  ,0*C(1  »,OPSI  10) 

r  i  -\    \ 


C(l) 

7  ) 


i   ■  i  I 

HT    .'.COO    T  SOPAc  METRIC     ELEMENT    MESH*/ 

—       ,        «<      -*         -1        ^     ^-       -  ■        -  ■       -    -      Jy      -  «    -J-       yU      J-    »  -     .i-    »    -     -     -         —      J_~.-    «!»..-. ^     J-      *       -I.      «»     »».       J..       -,«^,^         _-*...     —     .» 


CCNVEPT    THE    >4C0AL    CCROINATES    TO    ?~M*<+ 
TC    VAKE    "HEM    CO^PATABLE     UITH    PLOTG    C\LLS 


20 


CC    20     I     -     l,NN 

OZC(  I  )     =     ZC  (I  ) 
CFC(  I  )     =    ^C(I J 
CCNTIHSJE 
C>>L(  1  )     =     Z-1IN 
C>*L(2)     =    CUN 
CXYLO)     =     Z^AX 
0^1(4)      =     P  H  A  X 
CALL    'J  c.  I  M  t 
CALL    GSCFSE 

CC     5     I     =     1,:IC0LI 
CI-ZO  (1)    =     CO 


^^^A^^^^^S;*:**^*^**********^*!!:^^^:*******!;**** 


-'■■-.-—     —     - 

•f  -r  -r  ->•  •?  -^ 


PLOT    N'OOAL    F'  I  '•'TS  ** 
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C  «* 
c  ** 
c   ** 


ni-PC( 
C  C  M I N  L  E 

CC  6  I  = 
CVZC  ( 
CVRC  ( 

CCNTINUE 

flVl        =         4  p 

NCC1  =  N 
MA  =  NN 
KP14  =  v 
NC!'«    =     N 

NM    =    *J\ 

NP  1      =       *P 

C^LL    PLC 

**    *    <    *    *  V**    < 

**  4  *  * ***  ** 


KKK    = 

DO 


CO 
ICC 


1 
1C 

Pt- 

OH 
KL 

IP 

w  v 

KK 

GC 
v«y 

KK 
CHNTI 

CALL 
DC    2C 
PL 

KK 
DC 


esc 


ecc 

c 

c 

2CC 
C    ** 
C    ** 
c    ** 


1  )    =    CO 

1  ♦  1  r  C  v»  L 
]  )  =   c.c 

I)    =    C.C 

CW1    +    1 
CCL1    +    1 

RCW1 

CCL1 
♦     1 
Cw    +    1 

immpnnnmnnl1  ,m^,czc,c°c,oxyl.~7,t  itli  ) 

************;;:******************************«************ 

PLCT    K^HPNTAL     ELEMENT    SCUNDA»IES  <•* 

*********  *******  ******  ********************************  ** 


C    J    =     I,    NCQL1 

/ c ( j  )   =  r.zc(.»»M) 

FC  (J  )     =    C*C{*M) 
M  J  J     =    I"  * 
(KKK.LT.C)    GCTC    90 

=    h    <   ypcwi 

H     s    0     -     «KK 
1C    ICC 
=  mv    •»   ypi 

►     -    0     -    KKK 

NLE 

PLCT  (  •  ^Vi*  V\NtvjNL  '  ,  NC  14  ,OHZC»  CHRC  ,  OX  YL  ,  37  ,  T  I  TL  1  ) 

C     I     =     1,>PCW 

K    =    2    *    I 

¥    =     1 

800     11=1  ,.*>CCL1 

IF{  KKK.LT.  C)     GOTO    dSO 

III     =    KLK(  II)     f    "LK 

CFZC1  (II  )     =    CZC ( I  I  I  ) 

CHRC  1  (I  I  J     =    URC<  III) 

KKK    s    0    -    KKK 

GCTC    SOG 

in    =  kl  k(  1 1 1   *■  : 

CHZCl  (I  !  )    =     "C(  III) 
CWRC1  (I  !  )    =    CRC ( II  I  ) 

KKK     =     C     -     KKK 
MIML5 
=    (2    *     !  )     +1 

K    =    yLK    *■    1 


CC 

ML 

CALL    PLCT  (  'MNNNNNOM.  '  ,."  C  l<i  »rH  ZC  LfOHRCl»DX 
CCNTlNJUe 

********** 


20C 
40C 


ff  =  1 

NC11  =  N 
CC  400  I 
DO  3C 
GV 
CV 
MV 
C^NT  I 
CALL 
MM  = 
CCNTINUE 
CALL  ?ST 
PE1LRN 
ENC 


«**??*K^*  *****  ********  *:*:?*:-:-*  ************ 

PLOT    VERTICAL    BOUNDARIES 
*************************$**  ************ 


YL.37, 

?  *  *  *  4  * 


TITL1) 


** 


CCL     +     ! 

=    1  ,  N  C  i  1 
C    J    =     lt^ROWl 

2C(j)    =   la^n 

F  C  (  J  )     =    F  C  ( ,v  v  ) 
=    M«    +     1 

FLCT(«^^.NNi\Ni\0NL,,:',Rl't,CVZCrCV?C,0XYLt37,TITLl) 

i*  y  4-    m  p  l 
EFN 
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APPENDIX    F 
LISTING    OF   THE    PROGRAM   TUP3Q 

FILE:     Ticpc  FCRTP.'N       Al       NAVAL    PGSTGSADLATE    SCHOOL 

CI9444I  V^T'VY'WJI  'X  'v~>~7iT4t9*if   -  o»  i»  ■-*    *    <r  v    /  ■*  •  v  a  *»#*»>*<*?*»'»-/  9Cpf-**y    *  T?  *V  **  c»  -*»  J»  **    »  '^    /'»<»;    •    ■•   t»  i 
4-*4t*^4^n-S    j-t4    ,    -«•     )■■?*  —    .    c    >  <.    >        *        o    >    »    aw    >  ■*    >?o    lo+'a-nn^.  t»  ■•?  «  4i  •>  *»  *    ■>  *-  r       t*   ->  t»  «i  -n  -.   •:    j-ct    c 

•4!  -4)    '    k   4  <    ♦   •    i-         *    *   4   4    t    -   -    '   J  4    r    •    »:    <  v    a   *    »    "    i  *>  -a  ••>  -v        *>  ■-»    -»  •»    *    *    *»   *-n     -.    c   'j   v     >   ^    >    »   -d  "j    >    t  v    ■■     .»  o    o    o  •$-•"-.    ■» 

C9  "V   *  *>    7  ?   1  >  e  "V   v   -  3  *         *   *    *  1  ^        ?  -V  °-  ■*   ^  -  £   -'  2  "^  5  'z  9 '  f  *    •    7    '  v  3  **    *  *'    T  0  *»  V  1  *»  v  •"»  2  *  1  ■*  -4  '■*  *  *9  V  •*  -V  *         '  "'    ' 
5     0-'*     t    4  t  *ii  t.    <    4   *.    to  «    fl    M     t    <  '?  -■  *     >^tn*Tn*fl4»^     tTj    vi    »    4  <    1  «    t  4     .     O  U   O  '0  -i     ^  -C  ■<    t    *     C*^4b-6  45#C'<.«!     u*3 

c   13-u*  psccra-4  rupee  ssIrs 

C    SSS??  ?JJM 

Cj  i   4  i    a   4  4  O  m  '4  3    t   \   .*  t  ■*  •*  ^    a  a  ^  »  v  p  <x    f  (3  a"   »  t»  -ai  v  ^  »  *    »  y    *<*».*  7  *v   »  7    *   -•  v    /  >*   -  ^  ->   «^>  «wr   rx  ,"  /    , 

4  4    *  t     ***-t*'7T*4"t**»'-  .**     .*->--,  ^    a:  -i    o     »   a    3  *:   3  *  o  .---«?'i*->-n3">.>o.;'»i3-'j~'3<.*     fl     )  »i  -^  •"&  *j  -o  <j  f  'd 

C*  M  M  1    J  -♦  k'    '    l    H  -^  ^  v    .  ' '*>>>>**'  -  '    v    -  •«     •  =•    -  v   /  *  3;  *r    7  -   »  *   *  ':  y   i?  -y     ■  /  -»'V  *j»    ■>         ';»j  y  \     »    ;w  v-   ,-./  ■  v 

o  0  *  t-T     f     t    •*    ♦   -q  *  *-    *    C     -•»*;  CT*     *«r-or-r  o*-i-«-a'O-^0'4>^  %  *-q    io    f    t     f     »     •)"■**>      •    1     <*     j     3»jj          ,.0,"'0'>>43*to     J  i    ■J 

C*»  >  9   I  '*   !  1  « "7  ^  m  'J  'i  I   '    *  -'  /   1  1  1  1  -■'  •*  7  v  *  i  i  "   vc  »<jo-  jo  9«    »  t  «  3  -,  ^  v      f  ?  »••  /  ">  f  v  -v  v  ■•»  *   V  T?  -■'   .»  C  -J  ~    '   >i    Z   i. 

C     3  J  4  1  ^  t.% '-  !  c1 

C   uu?  ?4v-;i 

C    SS?i?  THIS    N":RICrNAL     Th?  ^U-H-Ft  CW    ANALYSIS     P.OQGRiM  ?  v  '-•  4  4 

C    2^*-?^  APoiIcS    A    GVLFRKIN    FIMTS     ELc^SN^    ^ETHOD    TC    A  lZ.ii,Z 

C     ?^?'^f  STFEAV     FU^CTIu^     FCRV'-JlATIffJ.    T  H c     Pl''"^',-1    US=S  %*>'i"?.% 

c  **?ii        Fini-T  \cjf,   rsrp '.c  1  ^:Ti;,ic   clvj!^ts  at  c  tu^^1:-  sx'-ni 

C  %%%%%  PCIM    G^LSS-L^GF'JC"  E    QJintATij"=    NUMERICAL  3S*f?-5 

C  1^^2^  INTEGRATICN.       S5LECTEC    kESULT^     iHc    CISPLAYEO  ?XT*^ 

C  %i  J  U  %  r,%  i  % 

C  ?*?«?  ON    THE    TCKT  =  CMIX     flq    G<A?I-IC3    TERMINAL.  $S4  31 

C  3ir<^,2  %Z  +  -f* 

4*\*4*44-'  T    ^    ^  ^    +  o  -«    ^    ^    3   *   -c  •«    ■<  ■',   -5    •  <    9     -  -?    -^    ^  11  *o    <      -     .»     '  O    3     .      1  "O  O     ^  A  .<,  *.    ^     J      (    t)     3  'c     >  --•    A     -.    -»    1  *\«    '     -j  -r     >    >  *1 

C*  V    • -   V     «    I   T   <>  '  r    »   4     .    T.    7     .     »   1    }    »    4  >•   -»    •     ,    ■»    V    I     '    Z   *    '       '    *    *  ■*     ■    "  ">    1    I    >    fli»»»    11^    Jjj!».l»»'j;i>v»»      '         V 

Ca  f    '    -1     +   a   a  c    -r    ./    j  a   <*    '•    "*  •  -•     '     r  a  V    ',    V  <*  c    tf    J    i  •-.»  ."J  V »  "»  'V  /    t   V   V  ■>  'J.'     »    *  qi  ry  t»     *   j,     •>,/>-»  B  ?  T    v  ?    7  «     » J     I    "tf   "»     ' 

**iZ4]4*'.         >."■»«»->        «\    i'f<        ■>    j    .    <"        -»   •?   a  *i   •>■    <?   -    .-.    >  -i    t  *  ■     '.    c     ,  —  -t>     .  i     o    o    ]   <i    .:        -   *  ».    ■!  f  ••   11  ■«   o 
C»    »    5     .    1    J    a     J    *    a     c    J     3     J    1    ,>  (    3    ^  I    )f    {  ..    J»    £    »    v     •     /  •-'     >  /  t  .1     >  f  -V   ■%  4>  -    ■'  Ol    y         '.I    Jf     7  .y-»  f    :f  ■»  ■>    V    V      J  V    ••    V    v     > 

Ca  ■  ■»  a  -i  «   T  •)   \    ',   »   •»   l   1   J    ;.>...-»»  i  ~  -~  ^  -     »  -i         3    •    >    t  -,  e    a     .    u»:/31    .  :j  <\    ,  v   y  .7    »  »   i    ,    ^  s    »■»»-'*./'  a    >  / 

c 
c 

INFLICIT     FFAL*(3(-,-H,  P-Z)  t     3EiL*MC) 

INTEGER  *4    NREAC,Nk»R  I  TE  tl  CtNNCD  t  NE^f  NNE4,NP0m3t  L  IMP  ,L  IM  I 
C 
C  CI  MENS  I CN     ALL     AF3AY     VARIABLES 


t     ^ 


CCVPCN     /FEALS/    T?(qftCCC) 
CC^fON    /FFAL-/    C-.  (5001 
CCfMCM    /IM2/     I2(2nCC> 
CCN^C'I    /f>CrMvT/    NC0L»MC0Li»M\',NE 
1  ,NNF  ,r:Ni-C  ,N'lNr-,  C 
CC»*I*GN     /FC"'V     3G,G,CP,PT  ,TT,  ^G  ,uli— ,  Pmct  .RHCf.TA  , 

1  Li  IC  L  r  T  ,  L.  CL  I  F  T  r  P  S  '  I .  ?. r  J  »  P  .?  !  2  ,  p  i  1 1 1  ">C 

CCvmcm    /^Ci^J^T/  ""i. > . ^fc^i  ,kk 

CO"f  N     /L  TC/     MPEACtN-W  IT  = 

CCNTli    /  ^  PT  V  T  /    »  Fl  ,  *-  PI  ,  ,np"»  ,\J^  ,vjP5,  N  P6 1  NP7,  r;P  ^,NPc,r,P  10*  \'P  11 
lNP12»f-{P:2iN°Mf.\K  !S,.\Plo  ,?  Pi  7,  iN  PI  :,NPlctMP?0t^P2  1  fNP22f»-:?23f 

2NF2^,,;D,rf  ,f  ■■'■jc  ,'v  r:?,v-j:;,,-.p-^,k-:>2  :,.'ipi  i,\pi2,-ip'  2  ,\pi  ■* ,«?!  5 , 

3NFC1  ,-.VC  :,NPr^  ,,\CC«.,  f«FC5  ,:\PC3 
CINrMS  IrN    ,1  a  (■;),-  «f  9  1  , ..(  ;>  ,J  <  :.  )  ,E(a)  »SF(  3) 
CINE'S  T  CN     FC  MS)  »ZC£H  )•  ='^  Si  6,6  ),  B^B  (  3) 
C  I P  FN  S I C  N    N(?)tLi(2)t.41(2) 
CINE'  S  Ifh    tt  ti  =(  iCl  ,RJAC(2,2),RIJAC  (  2»2) 
C/TA    S7CF/'STuF'/ 

CALL    RD *  T  fi ( 2 * , E  Z iU »  R  E LX f  KK, L IM  I , L IMR  ,L IM 4 ) 

C/'LL     IMITKLlMltl  IMR,T  IT  LP  ,  f.*»0  TC!C  ,NS  T  US  ,  L  I  44,  NNG0tKS4  tMUP4f 
INPCwS) 

CALL    Z  F  F C  I  ( D  P ( N  P  1  4 )  , R 3 (N P 1 2  )  ,R  6 (N PI  5 ) , R8 ( NP3 > , «3 { NP9 ) 

2  ,  P  J:  (NP  1  C  )  ,  ^B  (  \  F  2  I  ) ,  ?  ?  ( !<P  2  )  .  R  E  (  NP 1  ) ,  R  S  (  NP  3  )  , 

21  2  (  NP 1 1  >  ,  I  2(  ^.  P  12  )  t  ^  M  ( r:  Fl  <j  )  v  R  8  (  NHlf  )  f  R'l  (MP17  )  ,  f:  8  (  NP6  )  » ?  8(*1P  7  J 
4  f  R  €  (NP4  )  ,R  £(  ;  P  1 1  )  ,"  J  (  ".  c  =;  )  ,  =•  j  (  \  F  2 1  )  t  *  -  (  \P  22  )  t  :*a  ( iVP20  »  i 
5-Et»$tl2(  N  FI3)  ,  12  (NPI-*  *f  R3  r;?2SJ  ,R8  ('JO  29  ),  F'3  (  N°19  )  ,."JMrrJ  ,  ','t^  , 

€^^FH,^lPc^SJ 

CALL     I^:FLT(o.^  (N  Fl  )  ,  F-,  (  ,\P?)  ,  R  8  {  NP3  ) ,  R  g  ( ,\P<*  )  ,  R'i  {  MP5  ) ,  I  2  (  NP  !  3  )  , 
112  fNP  I4>  ,?«('•?  22)  ,r.  e(NP2l  )  f  «t(NPl^)  ,  S9(HPf  )  .  -  :,  (  ':  3  L  2  )  ,Pfi(NP12) 
2QS  (NP2  3  )  ,K>MvP2-t )  ,R-.  (MP2  5  ),=  «!(  \P2'>),  c  "  CiP27)  » 
212  (\PI  1  )  1 1.?(  \PI2  )  iTITL  =  »i\P0TCB  ,NNCT,  Nl^,  NN2-t ,  NRCwS  ) 


FILE:     TIF.RO 


FTRTO^N      Al       NAVAL    POSTGRAOIATE    SCHOOL 


2CC 


ecc 

c 

c 

c 

sec 


CALCLLATE     »V'    ANT    'U'    VELCCITIES    AND    NEW    NOCAL    CENSlTy 

CUL    nT!l(OS(,\F2).I?(NP[4),RP(NPl),'.  S(NP12),"P(::P16),r<>(JPW)f 
IP3(N'P?)  ,Fc(NP'!)  ,"•"(  NP9)  ,  R8(NP<V  )  VR  -i  (  J  P  =  )  ,  ^  « (  'IP'S  )  ,  Z£  (  *  ?H  )  ,  H3  (NP27  ) 
2,F8<NP23  )»K3  (NF24  J.^H  (NP2h  i  .«•*  (NP25  )  ♦  »*(  MP  7) ,  P  3(   IP  10)  f  p  >>(  NP  II  i  , 
2  I  2  (NP  I  3  )  tfl  cl  MP  2  6  )  ,~  3  MP?  9)  ,RS(  NP21)  ,  PR(NP22) t?3  (MP  I-  UNPOTOfi, 
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C  I  !■  r NS  I  C  N    HR  <  d  )  ,C  Z  (  S  ),)- J  4C  (  2  , 2  ), n  HON  ( 1  ),  DEVI  (l  ),  PP  AT  ( 1  I 

C  A  T  A    Z  1  /  1  .  00  ,  J  .I1  f  ,  -  i  . ' )  0  ,  -  1  .  D  C  ,  -  1 .  0  J  ,  0  .  DO  ,  1 . . )  J  ,  1  . . )  0  / 

cm  a  ei  / 1. co,  l.  no,  i.  co, coo,-:  .no,-i  .00,-1.00,0.00/ 
c 

C  BEGIN    ^TTH     MO    MCDE    CF    FIRST    ELEMENT    ANC    THEN    CYCLi 

C  THPCLGF    EACH    ELEMENT  . 

C 
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FCPTPfN 
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ICC 


c 
c 
c 

21C 


11 


24C 

C 
C 

c 

22C 


L. 

3 

c. 

1 
t 

1 

2 

1 


GM1    a    G    -    I.  CDC 

I  £  T  h  (  I  ) 

I  S7M2  ) 

IS1A42) 

I S  T  A  (  4  ) 

mA<5) 

ISTA( 6) 

I S  TA ( 7  ) 

i  sum    =3 

CC     100     I 

H<  I) 

HS(  T  ) 
CCMIMUE 
CC    200     II    =    1,N6 

N7IEI    =    ME  (  1 1  ) 

IF(NT£1    -    2 ) 


=    ItMPOVtl 
CP    *     fTCT (I)    *    nTU    *    GC 

=    C  P    *    7SYF ( I  )     *    9TU    *    0 


144.000 
144  .000 


2 10, 220, 230 


CC    2 

I  ST  A 

CALL 

1CHC.ALP 

2  ^  I-  C  T  I ,  H 

?NNrc,V'Z 
UK 
IF(  I 
I  Ft  T 
DPS  I 
C  '1 L  L 
2  P  H  C  1  .  i\  L 
?\,M  |VV2 
IH  I 

e> !  '* 

PTPT 
TTCT 

TEMC 
UN! 
hSIN 

RH"T 
AL°  ( 
V.7  (  N 
V  P  (  N 
VI'  (  \ 
WP.L  ( 
FM- 
CC.:JT 

GOTn 


or  ? 
ista 

P  V  T  \| 

CALL 

1RJ-C  ,alu 

2F«-TT1  ,  h 
2NNCD,NS 

call 

ICFV.rCI 

2  0  P  S  1 1  2  , 
2  N  P  C  a  S  ) 
M  " 

PFAC 
IF(  ! 
pc ;r  c 

PTQT 
TTCT 
TEMP 


SL 

El 
,h 
,N 

r> 

.L 
Id 
2 

CL 
1  , 

^  •> 

TA 

N 

<N 

i>>  1 
!>  1 
[» 1 
I 

► ) 
i" 

1;. 
i> 
v  i 
f ) 
> ) 
If 

F  ( 
M. 

2C 


V     =     1  ,  N 

I STA(Y 

IN  'ICC, 

,1  I ,  1ST 

SI ,a?,c 

N=4,NRr 
=    -    vpc 
S. !  JK) 
L.f'H.a  ) 

-      vj  •  L  ' '  sj 

C  T  (  3  2  , ' 
AL F2  .OP 

ro,r^4, 

US0.11 

rop  (  1 1, 
:  n    =   f 

V)     =    PT 
V)     =     TT 
H)     =    T2 
=    hi 
=     HS1 

)  =  snr 
n  i  *  k 
>    =    ALF 

=     1*4. 

=     -1^4 

=     \it? 

)     =     PC  I 

M  ^ )     = 


) 
P3 

£  1 

5  <: 

fcS 

V 

CO 

0 


I  ,VZ,  V1-  ,NCOc  »V  •!  ,  PCIl,Rr.I2,ALPl,Mcl,RHCl, 
, M,  RHGTT  ,  T5  v  P ,  ttt  t  ,  PR?.  SS t  PT^  ,  H  ,  F  1 ,  T  i ,  T  T  1 ,  P  Tl  , 
IR2  , OPS  I  Z2,h,HS,Z  1,VZ1,VR1,  ZC,ENTfiCPf  tNTl, 
J 

TC    211 

CTC    2U 


!  1  ,*CT2  ,T1  ,P  3  ,TT1  ,  fti,  mr-M  ,hi  ,h: 


c  +  »  N  (•>  C  X  S  ) 
CTC    24C 


r  t 
c 

r; 


FCT2 
y 

coc  *  i^n;   /   ( 

•jCG    *    0PSIZ2    / 
*    OTiN( 8LP2 ) 
2    *    */  Li  {  N I M ) 
ENT1 


2,ISTAi,T2,TT2tP2,PT2  ,?.HC  2, RH0T2 


<0  ?    *    o2    *    RCI 
MC2    *    B2    *    PC 


I    /    12.00 > 

I Z    /    12.00) 


5C    M    =     l.M^E 
1     =    I  ST/S  (f  I 

1     -     PC(NFTTpP) 

1  s    RC(ISPCTOe    +    '-IP'^W  1    -     1  ) 
S  L  IN  "  (  P C  ,  F r  I  ,  V  Z  ,  V  r  ,  M U  e  ,  V  "!  ,  F C  1 1 , 

,E1.I  I  ,  I  CTA!  ,;',r'HCTT,TEf>?,TT;iT,PK^  _ 
1 , HS1  ,  82  , r  FS  I S2  » CPS  I  Z2 1  h  ,  riS ,  Z  1 ,  VZ  1 ,  V 

FC'HiRCI 1 ,Vvl,8STAl,B=TA2,SM4Ch^f PVAX1 

2  .Rf-11  »Ff-r2fTl,TTl,3i,PTl,  *'_P  1 1  f.  HCT1,  PH 


f.  I  ?  ,  .U 

?,?TfiT 
i,  ZC 


31,NT 
,P,P1 
,  cNTsoo.ENTi, 


1 , R HO  1 , 
ri.TTl.P" 


'A  1  M  1 


'iTtOoSTR?, 


:FAC»ALP2.P2  ,PT2,  T2,TT2  »TOV-ZG  fVf2  ,  RPASS  ,N,NCC  ,N64,NNE4, 

■  ^c^  E  ( 1 1 ,  f ) 

T    =    (l.CO    -    PP-ASSI'ML.Ca    -    (;?PASS) 
STA1    -    2)     253, 2. '•1,252 
S  (M'-l  )     =     (  F?     +    Pi  )    /    2.0CO 
(MM)     =     (PT2     ♦    P'U     /    2.000 
(Mi*)     =     (TT2     ♦    TT1 )    /    2  .000 
(MM)     =    (12    +    Tl)     /    2.0  00 
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25C 

C 

c 

c 

23C 


H(N!  M 
HS(  M 
PHO(  >^ 

PHOTT 
ALP(N 
8C(  M 
VZ2    = 

VP">        3 

vzTmi 

VMM 

vu(  \  r 

l*G<  N! 
WFL  (  N 
HR(  M 

ENTRC 
GCTP 

PTPM 
TTOT  ( 
TE.4p  ( 
CEV1  < 
H  {  N  I  I* 
I-  S  (  M 
PhC(  f^ 
RHOTT 

err.  i 
v  z  (  \  I 
vp(M 

VU(  M  I 
teL(  M 
V*:=L  <\ 
H«  (  N  I 
ENT^C 
GCTG 
BE*  M 
Villi  M 
HP  < M 
ETA  (  N 
PRAT  ( 
CCNT  I 
GOTO 


)    = 

r  ) 

1!*  ) 

(N! 

IM 
r  ) 
1* 

- 1 

^  I* 

r  ) 
r  ) 
M 
IN) 
>  ) 
F(N 
25C 
(M 

|V  I,v 

* I* 

N  Iw 

)    = 
I"  ) 
PM 
(M 
I*  ) 

) 

) 

) 

) 

) 
IM  ) 
f  > 
f  IN 
25C 
*  ) 
V  I 
r  ) 
IM 

n  I" 

2CC 


GP    * 
=    CF    * 

=    ( r«p 

M)    =   ( 

=    (/I 

=     (PHI 

4  .  C  L  C 

*  4  •  C  C  C 
=  (  V  Z  ! 
=  ('Mi 
=    (  V  J"  ? 

=    ( \,v2 
=    (?c 

=  H  (  M 
I  M     = 


TTC 

TF 
C2 
RHC 


II* 
y> 

C.  5 


T( 
up 

♦ 

72 

♦ 

P<: 

[p 

VZ 

VR 
7  -I 
VM 
hC 

CD 


MM)     *    P  TU    ■»    GG    *    1*4.00  0 
(N  I  1  )     <     HT'J    *     GC    *     14*. OOO 
PHGJ  )     /    2,0 CO 

♦     RHC'Tl  )     /     ?.  COO 
ALP  I  )    /     2.000 
HFTM)    /     2.0C3 

IR2     /     (rHG2    *     H2    *     PCI2     /     12.  CC) 
SIZ2    /     (  PHill    *    3?    *    RCI2    /     12. CC) 
2)    /    2.0  no 
2)     /     2.0  CO 

1)     *    CTAN (  :L3(  N  I.M  )  )     /    2.000 
1)     *    DT£M'3c(Nlv>)     /    2.  J  00 
12  )    *    VG (MIMJ/-.COO 
hG*tRCIl    +    RCI2)    *    VU(NIM)/2.0D0 
C    *    EN  7 


=    P 

OT 
TT 

72 

* 


M  ) 
)  = 
)  = 
)  = 
)  = 
CP 

a     CF     * 

=     FHC 

M  )     =     F 

x    At? 

a  E  ETi 
=  M*. 
=  -  1*4 
-    VN2 

=   \»y? 

=  PC  I 
=  n  (  M 
I  M  )    = 

=   ee  r/1 

=     VM 
=    MM 
=     (T7 
)     =     FT 


V 

TT2 

_T2    ' 

HGT2 


BTU 

°.  TU 


CC 

GC 


*  1  *  4 . CO  C 

*  1*4. COO 


R C  I  2    /     12.00) 
:    RCI2    /    12.00) 


264 
265 


261 


Or  ? 
1ST  A 

RVAX 

P  M  I  M 

MM 

CALL 

lKp-rf;L3 

2  F  f-  C  T  1  ,  •- 

3  n  r>  C  D  ,  VJ  ." 

IF(  I 
6FTA 
GOTO 
GET  A 
C^L 

lCEv.rc  I 

2CFSI72, 

2-NPCwS) 

RFaC 

IFI  I 
no:  c 

FXC" 
TTOT 
TEMP 
MINI 
M(  N 
RHO( 
PHOT 


1  -  I^T 
1  =  R  C  ( 
1  =  \  r  ( 
=  NCOE( 
SLIN::< 
.61,11, 
1  ,KS1  ,3 

S  7  A 1 .  1 3 
1     =    A  LF 
265 

1  =    ALF 
$7 AT  (p 

2  «RH01-, 

Cf  <5C,  AL 

T     =     (  1. 
S  7  ^  1    - 
5  (MM  ) 

(MM       a 

( r  I  n  )    = 

(  M  v  I  = 
V  )  =  rl 
In  )     *     H 

N  I M  )     = 


It  N 

t  C 

^E~ 

N  ^T 
I  U 
FC  , 

i  S3 

!\pr 
.1 ) 
1 

(M 

CI  I 

prif 

F2, 
CO 

: ) 
=  ( 

( r 

(T 

<  7 

<M 
(^h 
=      ( 


CDC    *    0PCI'?2    /    C:'H02    *    82 

.OOC    *    OPM  Z2    /     (^<HC2    *    r,, 

»    CTA1\(AL=>2) 

*    CTA\(-2  =  TA2) 

2    *    VU(.MM) 

M     -    WG    *    PCI2    *    Vi J  (MM  ) 

ENT 


*    CT^\(3£T41I 

■"  )     -    ^G    *    RCI1    *    VU  (MM 

1/{TT2    -    TT1)  )*( ((P72/PT1)**(GM1/G)  )    -    l.OCO) 

2/3Tl 


) 

4TG) 

AT  3    +    MRf^i    -    L) 
') 
P2  I  ,VZ.VF  ,\CM  ,VM1  ,  FC  !1  ,  ?CT2,  AL  "•  1 ,  f.T  r- 1 ,  "  HP  1  , 


,-HOTT,T- 


•>D 


OT  ,  'HrSS 


;>t 


FS  I-2.0PMZ2,  h,H->,Z  liVZliVr-.ltZC,  :TF  j' 
*3  ) 
GCTC    264 


,  T  L  ,  T  T  1 ,  P  T  I  , 


i  =  N  7  1 1 


M 

tVMlt  RETA1»  eE7A2t  KM  SCHR.^MAXl  ,°MIN1, 


1.TT1  ,Pl  ,P71  ,  .L-3  1  ,PHf" 


P2  ,nTZ,  T2.TT;  ,Ti 

-     FPASMM1.0C     -     r 

263 »261  ,262 

P2     +    PI)     /    2.000 
T2    +    PT  1)     /     2.01  ; 
T2     ♦    TT1  )     /    2  .0  00 
2    +    Tl)     /    2.0CC 


CZ    +    ^H^l )     /    -.ooo 
^HQ-!2    +    »H0T1  )    /    2.  COO 


'Hr'T',  , 


G  ,V2»RP45S,M  ^n.,".1 
P  ACS) 


>T,0PSI«2i 

:4,N.'Jc^t 
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FILE:     UF5P 
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262 


262 


26 
2C 
C 
C 


ALP  ( 

Mil 
V?2 
Ml  (  N 
VM\ 
VU(  N 
ENTR 
rtRL( 
GOTO. 
PFES 
FTHT 
TTOT 
TEMP 
CPV1 
H(Mi 
HS(N 
PHC( 
RH07 
At_?< 
VZ(  N 
VK  I  N 
VU  (  N 
WRLt 
ENTR 
GOTO 
ETM 
PRAT 
CCNT 
C  C  N  T I N  U 


PE1URN 
£NC 


N  If*) 

=  14A 
■  -14 
IN  )    = 

r* »  = 
m  = 

CF  IM 
N  IV  ) 

2  6C 
S  (MM 
IMV) 
(MM 

M  )     = 

IN  )    = 

f^  iv  ) 
T  (  \  I  -1 
N  1"  ) 
IM    = 
IN  )     = 
IN  )     = 
N  IN  ) 
CF  (M 
2c0 
Mi"'] 
<N  Iw) 
IME 
c 


=     (PETAC    +    RETAl  )     /    ?  .OOC 

.crc  *  CPSIR2  /    iri-c.2  *   B2  *   rciz  /   i2.co 
a.ccc  *   resize   '   (CHn2  *   *2  *  PCI2  i   K.co 

UZi     +     VZ?>     /    2.JCO 

(VP!     «■    VR2)     /    2.».CC 

(V.v2     *■    VM1)     *    CT«MiLJ(MNI)    /    2.0DO 
Ml     -    C«500C    *    EM    ♦    ~\T1 
=    PC  12    *    VU(NIM) 

)     =    P  2 

=    PT2 
=     TT5 


hi 
h 


i 

V 

*  ) 


T2 
CEV 

SI 
P  h  C  2 

=    -1-OT2 

PETA2 

^A.cno  *  opsir? 

1  A  A .  O  D  C    *    0  --1  S  I  7  2 
l»2    *    CTAN(  SL^?  ) 
PC  I  2    *    toU(NIM) 
=    EM    ♦    ENT1 


/    (KMQ2    *    32 
/     (RHC2    *    62 


f.  I'    /    12.00) 
RCI2    /    12.1)0) 


=     FT"/PT1 
=     FT2/PT1 


SLPRCUT  INE    SF£PE(E» l,ZF) 

4  +  44   44   444-4    44-44  4t    +4    4  +  44+4l--r4-»-44-4-444    444444    44    44     . 

*-f ++  ♦  4  4  +  +++  ♦+  +  +■♦■  +++-♦■  +  +  +  +  +  *++*+++  +  ++  +  +++++  +  +  ++  f  +  ♦+++  +  +*  +  +  *  +  +  +  4-4  +  4>+4-  +  4  + 


44444444  444*  ++  «•  ;-  4  4  4  4  4  4  44 


•»  + 

4  + 
44 
4  + 
44 
44 
44- 
44 


Tin  in 


C4LCULAT 


FC  \0     FROM    LEF  T    T 


X  IGhT 


this   sua 

L^CAL    MC 

IN     THE     Z-t    PLA>!E. 

CALL     SIME'-'EM    OSFIMTIGNS: 

I     =     VALUE     CF     Trp     EXCIES     INPUT 
F    =    VALUE    CP    Th=    ETA     IMP'JT 
SF     =     SHAPE     FUNCTICN     VECTOR 


FUNCTIONS 

3CTTC    TC 


FOR 
TC-"5 


444  +  4  444+44  +  444-+-4-'-4  +  4  4  4  44-4- 


4+  +  +  +  +4  4-++t-(  +  +  ++ftt  +  +l 


+  4 
4  + 
4  4 
44 
4  4 
4  + 
44 
4  4 
4  4 
444-1-  +  +  4 


4444    4    44444444-r44-  +  44-»444444+44   +  4444T-rT-r-r-rT~-r-r-rTT-r-r-rT-T-r-rTT-r-rr-r--r-r-r-r-r-r-r 

444-r4444+>4*44   4+4444444-444444444-444+4444  +  4 


INFLIC 

CINENS 
SF  (1  ) 
SF  (2) 
SF  (3) 
S  F  ( A ) 
SM5) 
SF  (ft  ) 
SF  (7) 
SF(3) 
RETURN 
EM 


IT     PEAI.*€(.!-H  ,F-Z) 

irr    SF  i  E  ) 

=      (Z*E     4    z*7    +    E*F     4    Z*Z*E    4    Z<E=*E    -    l.P0)/-4.0C 

=     (  L.OC    ♦     i    -    i-*l    -    Z*Z*E)/?.:)0 

=     (-Z*r     +    1*1     4    ;;^6    4     Z*Z*E    -     Z*E*E    -    1. 10  )  M.OC 

=     C.oc    -    E*E    -    I    +    Z*£*E)/2.no 

=     <Z-r     4    z+Z    4    E*E    -    Z*Z*r.    -    Z*c  +  E    -    l.'3O)/A.C0 

=     (l.OC    -    F    -    7*Z    ♦    E*Z-Z)/2.0C 

=     (-Z**    4    ?*z    4    E*E    -    C-Z-Z    4-     Z*£*E    -    1.D7)/A.00 

=     (I.jC    -    E*c     4    L    -Z*£*E  )/i.DO 


SIEPCUT  ir  E     INPUT  (  7C  ,uc  ,B  ,*LP,L>E,NTc^OCE  ,PPAT,0FV1  ,PHC 


1UVEL?PSI,FSIC,TJ"I-,TTCT,P'-ESS 

2^RCTL,-(,^^CL:fr.::^,^.^ZAf^rLWr) 


PTUTi R  ^  C  T  T , NFS  f N  8  C  »  T I TL  F . 
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444444 

+44  4++ 
♦  + 
4  + 

♦44 +  ♦  + 

+  44  4  ♦  ♦ 

If 

IN 
CC 

1,N 
CC 

1LI 
CC 
CC 
C  I 
DI 
CI 
CI 
CI 


REAC 

NCCAL 

LAST 


44444  4 

♦  +  +  +■  +  + 


444444 

4  44*  ►  + 

FLICTT 
TEGER* 
N«rN    / 

yur,|M     / 

>LET,C 

>^CN  / 
MON  / 
►  ENS  K 
NEN'SIC 
*  c  \  S  1 1" 
."ENS  I  C 
>ENSTC 
TA    STC 


444444 
44  4444 


4  44444 
4  4  44  4-4 

F  EAL* 
<<  n;E.i 
ncc^t 

C  ♦  iv  I  N  H 

f  c  r  -w 

CLLET , 

K  cur.'T 
1 1 :  /  Nf 


ft  (i 
PS  I  ( 

T-«.P 

\T-  i 
'STC 


+  +  * 

4  4  + 


4  +  + 
+  +  + 

C,N 
/  N 
C 

FG. 

PS  1 

/  p 

FE^ 
)»^ 
i  I  , 
(  1) 
1  ), 
1  )  , 
P«  / 


♦+♦♦+++++++♦++++++■ 


+  +  ♦  +  +  +  +  ++  +  +  +  +  +  ►  + 


+  +♦++♦++♦++•♦+++«■++■  +   +  +  +4-  ♦+++  +  +  +  + 

+   +  +  ++  +  +  +■  +  +  +  +  +  +  +  +  +  +  +►+  +  +  +  +++♦■  + 

+  + 

+  + 

+  +  +  +++  +  4  +  4+44  +  +4  +  +  +  4+  «++++++++++++ +4++ +++++++++ 

+  ++*++  +  +  ++  +  +++  +  +++++  +  ++++  +  +  +  ++  +  +  +  +  ♦♦  +  +++  +  +  ++  +  +  + 

-H,F-Z ) 

»>F  ITF  ,1  CNNJCC  ,N54,.MNt  +  tNPC.^St  L  I  M  R  f  L  IM  ! 
CCL,-.COL!  fNNtNE 

GtCPiPTf^T.^G  tWOCT, F«CT»PHGSTAt 

T.^TU,F2I2,FLIi,GC 

FL'K  t*H3Wl  iKK 

C('l),B<I)  tALP(l)  f*£  (DtRHOd)  t'JVFLU) 
FS  IG  (  L  )  t  T I T LE  <  10  ) .  H  E V  i  <  1  )  .P c  A T  (  1  ) 

,TTTT(  1,  ,PRESS<1)  ,3TCT(I)   ,?H0^(  1) 
.\  h  C  (  1  ) 
NCCS(NF'+,1  ) 


NCOE    M.we£RS»NCCAL    CC?RQTNATES    (IM     I\CH«-SJf    ANO 

«LGCK*GE    F.5CTCF.     INLET    STATIC)    ZC()     -1UST    BE    =    0.00. 
NCgit     ZCUM     'vt£T     R=    AT    ThE    CLTLET     STATION. 
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IF 
C 
WR 


\'W 

■.  •? 

N* 

'Jc 


600     I 

UVEK 

VVL:L  ( 

TVEL  ( 

TV,EL( 

4LP(  I 

WRL  (  I 

°.ct  I  ) 

H  I  ) 

HS(  I  ) 

NTIML'E 

I T  E  ( N  h 

R  V  A  T  (  • 

IT=(NV. 

5^c,T(  • 

=    1. 
1122 

IT'CIU 
(I.EO. 

=    I 

=    FLC 
(ONE. 
*    C    + 
Iir  {Mi. 

it:; 

m   i 

nr( 
NT  i»: 
minus: 

c  t* A  T  (  * 
ITCtNV. 

h  M  A  T  <  ■ 
=     1. 

1322 
IT2(   i* 
C  M  A  T  (  ' 
(I. EC. 

=    FLC 
(C.Nc. 

=    C    * 
ITE(TW 
ITL:(  \'V. 

TP  13" 
I  T  r  (  N  V 
CVAT  (  ' 
NTT''i)E 

it:i nv 

P  V  A  T  <  " 
TOT*  , 
-    1. 

L42? 
ITFCJV. 
P^AT (   • 

(i.  pa* 
=  i 

=    FLC 
( C .  K  E  . 

=      0      ♦ 

ITE(  *!W 


=  1 
I  )  = 
I  )  = 
I)  = 
I  )  = 
)  = 
)     = 

=    3 
=    H 

=     H 
F  IT  = 

I1)" 

F  ITC 

'  ,/ 

?X,' 

I     =» 
FITc 
NN  ) 

M(I 

CC) 
1. 

F  ITE 
P  ITE 
2 
FITE 


•  ,1 
CI^  = 

1  ,' 

I    = 

f  it: 

•  ,i 
r>  r> ) 

n  (\ 

CO 
2. 

F  ITE 
F  IT? 

c. 

F  ITE 

!•  I 


tN 

U 

V 

T 

T 

A  I 

i-iP 

E  ( 

I  ) 

SI 


L  (I  1/12. CO 

KI)    /  1 2 .  n  o 
l ( I )/12.D0 
I  (I  ) /1 2.  CO 
I  )    *    57.  ?':57e 

!)  /  in^.ono 

*    57.2~>b78 
(GC*144.UDC*«TLJ) 
/     (GC*144.0C0*8TUI 


,1  IC"  ) 


,1 
// 
PS 

I, 

.1 

30 

C  ) 


,1 

»     4. 


no 

//,27X, 'FINITE    ELEMENT     RESULTS*  ,  ///  , 

I  (  I  )'  »  10  X,  »VZ'  il  'X,  'VR  •  ,i2x  ,  »R<  I  )  •  ,10X,  'OENS  I  T\  •/  ) 

\f> 

12  0  )(  I  ,?SI  (I)  ,UVEL(  I)  ,  VVEL  (  I  i.FCl  I  ),  Fr-C(  I)  > 

TP    1124 

/4C. 

TC     1123 

C5  3  ) 

UC  ) 


1C53  ) 


2,2X,C12.6,2X,012.6,2X,013.6,2X,D13.*,2X,C13.6) 

,1121  ) 

NCCE*  ,5X,'1*RL(H  '  »  10X  ,  »HT«  ,  13X,  'VT  •  ,  12X,  'WT',  I  AX,  'hS'  ) 

i  ,  MV 

,  12CO(  I  ,*RLU  )  ,H(  I)  ,TVEl.  (I)  ,T«EL(  I)  ,HS(  I)  I 
2X  ,ni"i.S,2X,012.  t,2X,0  13.  6  ,2  X, 013.  ':>  ,2X  ,013.  6  J 

TC     132. 


-  t 

CC 

C) 
?C 

,  1 

,  1 


/4C. 

TC     1323 

CT2  ) 
12  1  ) 


IC 


FITE 
i  .  i 


11X  , 

1   = 

V.FIT 


»  i. 

If 

,1 


421  ) 

i-  •  ,-X , 'TEMP' ,  11 X, 'TTOT • , 11X,  'PRESS1  ,11X, 
CT»  ) 

NN 


.0  0  )  (  I  ,TEM?(  I  )  ,TTOT(!  )  ,  °P  ES  S  (  I  ) ,  ">  TOT  (  I  ) .  RHTTT  (  I  )  ) 
■  ,  I  3  ,  2X  ,  C 1  3 .  6  , 2  X , 0 1 3.  t ,  2  X,  0  13  .6  , 2  X  ,01 3  .  6  ,2 X  ,013  .  6  J 
fM     CCTr     1^2h 


*T(I 
CO 
1  . 


r  ) 


/4C. 

TC    14  2  3 

C5  2) 
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FILE:    TLP30 


FCRTP4N       Al       NAVAL    FCSTGRAOLATE    SCHOOL 


1^  24 

14  2  J 
1422 

11C 


12C 
ICC 
1210 


fcR  ! 
GC7 

WP  I 
C^ 


cc 


CCN 

RET 
ENC 


TE(N 

G  1^ 
T:C! 
TINU 
TINU 

w~I7 
FTP-i 
100 
WRI  T 

TINU 
UFN 


W  P  ITg  ,  1  A?  1  J 

JiPITE  ilC53  ) 

c 

ElNHftlTEtllQI 

/7<2X,'      ISlXt'     Uf'HA'  ,  2X,  •    3ETA1//) 

I     =    I  ,Nr 

E  inwr  ITE,120J    i  ,alp(  i  ),ee<  I) 

M  (15  ,2F10.c  ) 


♦  ♦ 

♦  4 
■f  ♦ 

♦  4 

44 


SlERCUTm    DUCT(P2.P.CI  lf3CI2»Tl«Pl»T71  ,PT1  tBHOTl  fHl»HSIi 

2  P  I-  C  1  ,  A  L  F  1  ,  fit  f-Z  ,  r  (.  c  t  ^  r  ,  rn  s  I Z  2  ,  I  S  T A  I ,  T  2  ,  TT  2  ,  P  2  ,  ?  T  2  ,  PH -"  2  ,  ?  HC T2  , 

3vpi  »vm<?  t^cr)  ti^E4.iv\E4.i\R(>S) 

+  +  t*4+  +  ft+1tH  +  >44+4*-4t  +  +  t  +  +  +l4+H4-t+t4+*+4'  +  ++*»-f  +  +  +  +  4-  +  +tt  +  +  +  tt  +  +  + 

4  4 

4  4 

4»4H44V4(H4+#*4*H++nt+4t  +  +  -t+4  4++  +  +4*  +  '-4  +  +  +  t*-  +  *+t4ft  +  t-4f4J++t  +  + 

44444444   4444   4+4+44  +  4+  +  4-4  4+4  4'4-4  4+44  +  4+4444+t  +  4  +  4t4'  +  4444  4  ♦  4  +  4-4  4  444  4  4 


ICC 


20  C 

205 
25C 


sec 


imic  it 

IMEGER*4 


?AL«F  (  *-HtP-Z) 

N3E  iC.i^RI  TE  ,1  CtNNCC  »NE4,NNE4.NRQWS,LIMR,LIMI 


CCPMCN     /^C•^)^T/    >  CGltNCCLl  »NNfNE 

I  .Af-F.MN'EC  ,N'.' \^C 

CCPMCN     /FCC4/    P:";,GtCPtPTfTT,VG,*.")CT,  FHCT,PHCSTA, 

I I  I  r,  L  ET  ,  u  C  L!_ E  T  ,  P  S  '  I  ,  ■"•  T  J  ,  F  2  T  2  ,  F  1  I  1 »  GG 

cc^cn    /kcjm/   i»FCk.  ,mrcwi  f  kk 


3EGIf>    HTH     n9    NODE    CF    FIRST    ELEMENT    ANC    TFEM    CYCLE 
THRCLGJ-    EACH    ELEMENT. 

W F  IT E <  6  ♦  ?  5 6 ) 

IF  (  ISTA1.EC.  i)     GC70    300 

IT    =    0 

CP1    =    G    -    1.100 

GV1I    =     i.COO     /    G-'M 

EPS  I    =     l.CC-a 

RFC2    =    FK1 

VN2    =     (CSCFT  (CFSIF.2*CPSIRZ*0PSIZ2*0i>SIZ2J  )    ";    L44.0CC    / 
1  (  R  I- C  2*  £2  *R<"  12/ 12  .DO) 

ALF2    =     C£7AN(( FCI1    *    V!     *    QTA.MALPl))    /     ("CI?    *    VM2M 

T2    =    T'l    -    GJ1    *     (V!»2*V*2*<  l.OC    ♦    (0  TA.\(  ALP2)  )  **2 )  >     /     (2.00    * 
1    G    *    RG    <    GC    *     l-'«4.0nj  J 

F2    =    PT1     *    (  T2/T  '1)**(G*GMU  J 

RFC  2    =      (F2     *     144.  CO)     /     (  PG     *    125 

Viv2N    =     (  CSwP.T  (  rue  J'-  2vOP"  I^2+CPSIZ2*DPS  IZ2)  ) 
1  (RFC2*-i2*FC  12/12.  JC) 

C  I  F  F I     =     [  1 <?  S  (  V  f  2    -    V  •  2  \  ) 

If  (0IFF1.LT,  c?  SI  )     3CT0    350 

Vv2    =    V^2N 

I  7     =    I  T     4     1 

IF(IT.GT.ICO)     GCTC    ZC? 

CCTC    1JG 

W*  IT=( b  ,225) 

FCFMAT(«     CCNVCGENCE    MC"    REACHED    IN     20    I  TER  ATI  "MS  ,  CUCT  •  /  ) 

rCMU'UE 

RVACmZ  =  VP2N*VK?N*(l.QD0  *  (CTAN ( At P2 )) **2 )  /  (  G*RG*GC"*T  2*  144  .  C  > 

CLAM  =  I. CO  J  4  (G^l/2.O0)*RMACH2 

F72  =  PT1 

772  =  T7  1 

RFCT2  =  (PT2  *  l44.CC)  /  (RG  *  TT2) 

C  C  N  7  f  M  u  F 

RETURN 
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FILE:    TLPEC 


FCRTP/^       Al       NAVAL    FCETi^ADLATE    SCHOOL 


ENC 


SLePCJT  INE    RCTC(PCI  1  tVMl  ,  odTA  I  ,BE  Ti  2  ,?.yACt-W  ,  ?V  \  X  !  ,P  *  jm  , 
lCEVtrCI2  iPHQltFHCiJtn.TTl,  °l.PTl,AL?lf  FHOTl  ,  SH0T2  »B2  »E;JT,0P$IR  2* 
2CPSIZ2tuFArlALF2tP2.PT2»  T2,TT2  ,TJ.*EG  ,V«  ,*?ASS  ,N'NCD  ,NE4,NN£4, 
3NFCWS  ) 
4+4444444*44444444444444-+4444+4-44444444+44*4444444<44444444444444++4  + 

4+444444  +  4-444444-4444444-4t-444444'  +  444444+  +  4444-444-444444444444444444444 

4+  4  4 

4+  4  4 

444444444+4444444444-4444444-4-444-44444-4  44  4  44-4444  +  44-4++4444444444444444 

44+4444444  4  44  444  4444  ♦  444  f  V444+4-444-4  44-  44-+  44.4+44444>+4-44-44  +ttf  +  +  f  +  +  f  +  t  4 

IVFLICIT    R=AL*6(A-H,°-Z) 

I  NTFGER*4    \'R  5  A  r  ,  \  A7  I  T  F. ,  I  C  ,  NNCO  ,  NE  4 ,  N  N  E  t ,  NROW  S ,  L  I  MR  ,  I.  I  M  I 

CCMMGiN     /f^CCUM/    \CC  L  ,NC/!L1  »NN  ♦  NE 
1  ,NNE,  i\,r,C  ,*.M.\BC 

CC"Mr>:     /FCC!-*/    ?G»G,CPtPT  ,TT,  «G,wnrT,  FHGTtRHOSTA, 
ICIMETtLCLLS  T.PSI  I  •cJTUtF2!2  ,F1  Ilf3C 

cc^rv   /kcunt/  .*•*•:*, *ko*1iKK 


FIND    HPEL  tViRLtANO    TWEL    AT     LCC    NODES    3 1 4,5  ( 3CTOR  ) 


FCT 

PCI 

PC  I 

PCI 

PCI 

Pf  I 

PCI 

PCI 

RET 

RET 

W] 

PCC 

IP  1 

1      (C 

P  K  A 

1  4. 

2  3  . 
TCV 

1  + 

2  9. 
SIC 

1  - 

2  ♦ 
Pf-I 

1  C. 

2  C. 
TCV 
TC^ 
PET 

eET 

3ET 
BET 
BET 
S  IC 
S  IC 
RP£ 
RP/5 
P  ^ 
PK  I 
HK  I 
PIT 
SLC 
1-SI 
RI2 
EXF 


12  * 
I?  ■ 
14  = 
10    = 

16  = 

17  = 
in  = 
19  = 
Al    = 

1  = 
=    V* 
M3    = 

=     T 
CHP 
*GC* 
PPA 
C  j'^ii 
9200 
C    = 
5.39 
255  3 

U3* 

2.9^ 

-    i 

5  -  T  f- 
C277 
C2    = 
C     = 
A12 
913 
A14 
A  16 
A16 

2  = 

^c    = 

SS2 

CD    = 
SH    = 
T    = 
FM 
CF.N 
G)  )* 
0    = 
r 


PC 
PC 

RC 

Fr 

PC 

PC 

PC 

cr 

[4 

El 

/ 


PC 

o  f 


1     ♦ 

FC* 

*C- 
5C- 

G.l 
lc4 
3C- 
.C* 

ef  5 
9  c  2 
5?. 
C7 
6  12 
IC 
TC 
=    £ 


S  IG 

?  IC 
(  F 

=  R 
EE 
C. 

13. 
=    SI 

oET 

P-KI 

1    =     2. 


T  1 

:i 

T1 
[1 

II 

II  *  PC 
Ii  *  PC 
II  *  PC 
TAN  UC 
Al  /  5  7 
)CCS(P 

ooo  *  c 

w  1  *  W  1 

S  J .'  T  (  (  V 

9.  65E? 

U     *    PC 

4     *     C  T  J 

24  =  t:l    - 
2-12    * 

=   *  c  s : 

c  7  3     4     i, 
S>  3    *    r 
'  0  -  5    ± 
2Q  ?     *     5 

^    0CCS( 

*  CT.' 
VC  *  TT 
VC  *  TC 
tT  a  i   * 

tT  Al  * 

ETA1  * 
ETA1 

FTA1  * 

*  sir, 

*  SIG2 

*  ft  x  i    - 

P  A  r.  S    * 
TA1     -    r- 

70  nc 

0*70 VC 
C-    *     ( 0  . 
C.  02  4*  ( 

61-2  .:; 

SH       *        H« 

70  9  4     - 


*      o  ■ 


2 

T 

4 

c 

6 

7 

^C  I  1/ 
9-78 
1  ) 

*    CC 
(  i?CCN 

*vyi* 

0  )  ) 
C.0d° 
9-0 
RCI  1  ) 

.  5  -.  9  2 

1  17    - 
PCI1) 

2~51D 

j(rc: 

AM  '0 

?  1 8 1 J 

ID    - 

« r  1 1  j 


t  i  i 

T  A 1  2 
TA13 
TA14 
TAI5 


VMU     *    5  7.2  9  573 


*    9TU 

3    *     144.003  J 

(1.0C    ♦    OTAN  (BET1  )*0Ti^J{  3  =  T  1  )  )  )     / 

1161    *    PC  1 12     -    7..^Q^6113-1J    *    3CI1B 
.121215    *    n  S  I N  ( R  C  1 1 J     •• 

6D-3    *    "CI1     -    S.  560160-5    *    RCI12 

7. 303 JlC-7    *    0COS(-CI ]  )     - 

-3    *RCI12    *■     1.46E66Q-0    *    ^CT1^ 
1)    -    7.42  404C-4    *■■    TS!'I(?CI1) 
P.!     -    2.12-71    *    ,)LC;(C  CI  L  ) 
-4    *    P  C  1 1  \    +     2. 27  =  70 -LI     -    RC  I  1^    - 
i.  3  -7  4  10    *     CSIM  (PC  II  )     + 
-    9c.  700;->    *    DLCG(RCI1  ) 


PC  II  )     /     (RMAX1    -    kM  IN'l) 

K^PP^ 

-    7-. .  CS*~0VC2    +     1S9.  o*TrVC3 

iiR*SFTAl    -    2.23  7C-12*c£=  TA16) 

2.5-srG)     -    0-  CU22r-4*(l.  '■*.    -    SI  d)  *CSC°-T  (  DA9S  { 1.8 

cu-?*(26.  43- 1.0/ (r- 1  G-SIO)  >*BETA13 

IT    *    RITEN    +     SLOPED     *    PHI 

1.  1  3  7  5*P°  ASS    +    O.'O  75*RPASS2 
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FUE:    TLPflO 


60C 


11C 

ICC 
12C 


*5C 


XPC2    = 
ICIFP    = 
*    R  M  A  C  h 
IFEF    = 
KCELS     = 
KCEl  7     = 
ElxEM    = 
(1.510- 
<-?.  07  C 
LC  F7M    = 
E ETA  13 
CCN    =     2 
CCN   =    c 
CELT  I     = 
(1.2-57 
=    0.  ^6 
eETA13 
EL20    = 
RICIFF 
CCN2    = 
CCM2    = 
+    35,  I  5 

ccn  =    i 

ELDIF     = 
ELR?F     = 
EV    =    CE 
E7A2     = 
FS    =    1. 
7    =    1 
E7A1     = 
E^A?    = 
c4P    =     ( 
H    =    G 

yn  =    ! 

FC2    =    p 
C2    =    1  C 

( 
LF2    =    C 
FAC    =     1 
RC  II    - 
P/C2 
FAC3    = 
F/C5    = 
CPEG1     = 
C.955<;<; 
CVEG3     = 
0.22331 
CI  FT     = 
F  ( R  P  i  S  c 
F  <  °  P  A  S  S 
CVEG    = 
C7C    120 
CNEG    = 
rir    I'C 
OEG    = 
El    =    T- 
F  i    =     PT 
R  1     =    P7 
E2    =     °E 
2    = 
2    = 
2    - 
HC2 
K2N 


FCR7F4|\       Al       f^AVAl    PC STGR \0GA7E    SCHOOL 

((!.0323    -    C.344*RPASS    *     1. 5 63*R °A SS? )  /^ "ACHP ) -*r X 
-2.S     *    2.554PPASS    ♦    (5.275     ♦    7.  5*RPASS    -     2.5    *    RP 


R**€XPC? 

R !2Q    ♦    A  ICIFF 

C.7JCC 


PCI 
1SS2) 


4.oo7*7rv,C     ♦     24.A5*7CVC2 

(-0.GC1-3    ♦    J.0257*SIG    <•    0. CCC144*SIS2 ) *BETA1    + 
A    -    2.55C-4    *    SIG    -    3.102C— '■*    *    SIG2)*>=TA12  + 

♦    7.043    *    SIG    +    3.&21    *    SIG 2 )*1 . 0D-6*3STAi3 
C.15     +    7.G6C-4    *    SETA!    -    i. 2960-5    *    BETA12    ♦■    3. 10 

.25    -     C.C124    *    BETA1    -    C.JOO0c84    *    3ET412 
.0070    -    C. 000708    *    bfTAl    +    1.260-5    *    ^TA12 
CEX"  (-ACCM*«IG1    +    (  ECCN/3IG2)*(DSIN<3.1415<;3*SIG 


u  ■:  X  0  ( 
6    -    0. CO 3  0 


*    BETA1    +    6.1950-5    *    3ETA12    -    L.47P3D- 

FKGElS    *    PKCELT    *    DELT5N    +    ( SlCP£M/( SIG**3 ))    *    PHI 

*    CO  c L  C  I 


ao-7  * 

/ 

+ 


-1.7=    +    2.5*RPASS    +    RPASS**6.53 

C.2Q    -    5.5C*?PASS    +    31.34    *    PPASS2    -    57.  2*PPASS*RP 

*    R  F  a  c  5  /    *     HP5SS"' 
.A3    «•    55.6    *    (RPASS    -    C.535)**2 

ACJ**2    +    ECCM2    *    P.*ACHP**CCQN 

C:;L2  0    ♦    c:l:if 
LPFF     +     (RINCG    -    R  IREF)  *C02L0  I 
EE7A1    -    =  H     -    PINCH    ♦    CEV 
CC-b 

?  ETA  1     /    57.29579 

t"r:TA2     /     5  7.  2  "t  5  7  3 

FC  II     ♦    HC  12  )/2.UCG 

-    l.CO 

.CC    /    Q'M 

FCl^G. 75 

SC:?T(CFSIF2*CPSIRP*0FS  IZ2*noSIZ2  H    *    L44.000    / 


('-"FC2=!:P2<RCI2/i^,O0) 
C/7  £N  (  (  '«nT-«C  12    -    V.-'2*CTAN(  apTA2n/V*2) 

i   -  (  ViM?*rrco  s  (set  ^  ) )  /(  vf  i^oc  cs  (3*Ti2  1 1  *-<  ivi  i*ctam  < 

-     \,;'?*OT£N(trc  Ti2)*KC  I  2  )  *  CCr  S  (  rt  ET  Al  ))/(2.D3*SIG*V*l*P 
=     fFAf.*ncA(. 


:fac*ccac 

CFAC2    *    LrAC 
CF^G2     *    CFAC 


BETA!  )* 
»?ah  ) 


(O.OC215G58  +  0.03GA237'.«CFAC  -  0  «333447*0F'iC7  *■ 
C*DF'X3    -    0.<:027A<:*0FAC5)    *     (2  ,000*S  IG/DCC^  (  «ETA2  J 

(C.  JC:i2C=f  +  iJ.i:"5  1^2  IG-^PAC  -  C  .  10*54  7*1=0'=  AC  2  +■ 
£*rc*C3    -    O.C433^25*CFAC5  )    *     (  2  .GO0?:S  I  G/OCS  (  E27  A  ? 

(tcm:gi  -  t:^g3> 

.C-E.0. 30)  GCTG  100 
.Lc.C.10)  i-jT'O  110 
7CVEG3     ♦     (T:^cGl    -    TCMEG3)    *     (  ( 0. 3-RPA S S ) /O  .  20 ) **2 


) 
)   ! 


VM2 

TE  1 
PE2 
=  ( 
=  ( 
(? 


7ES7 
7  =  1" 
F (CTEST 
^2  =  VN 
F(  IT.L7 
FI7F(6, 
CFMAK  • 


1CMEG1 

TOEG3 

1    +    rtG*wG    *     (PCI2*»CI2    -    9CI1*RCI1)    /     (3CGN3    *    144 

1    *     (7  F1/TT1  )-■»*(  G*5Mli  ) 

1    *     ( 7F1/7T1 )**(G*GM! I  } 

1    -    TC-vrG-(P°l    -    PI) 

/    OCGSlEE*^:) 

-    W?*»P     /     (?:CCN3    *     ItA.OOO) 

*    (  T2     /     7E  1)«*(G*GM1I  ) 
F2*1AA  .CO  )    /     (  or,    -    72) 

cso.-  T(  z\'  -ir  2*.ipri-  2+cp«iz:-*opsiz2  > )   *   144. occ  / 

HC  2*  UZ*nQ  12/12.00) 
CARS(VN2    -    V>2!\) 
+     1 

.L7. EPS)     GH7C    700 
2N 

,10"))     GO^C    fcCJ 
A.5C) 
CCNVCRGENCS    MCT    REACHED    INi    20    I  7ERATI ONS  •/ ) 


.  3001 


,9S 


Fill 


TUKBO 


FCRTRM       ftl       NAV4L    PCSTGR40LATE    SCHOOL 


7CC 


3C*T2*  144. CCC) 


+  +  + 

♦  4  + 

♦  + 
+  4 

4  +  + 

+  +  + 


CONTINUE 

PP£CF2    =    VV2**V'"2N*  (  1.CK    *    (  0  TAr:  ( Al  F2  )  )**2  )/  (  G*«G; 

Ct/NT    -     l.COC    +     IG:U/2a90)*RPACH2 

VI  2    =    i>7    *    OliANT4*(G*fcl"l  I  ) 

TT2    =    T2    *    QUANT 

PHCT?    =     (P72     *     144.  CO     /    JRG    *    TT2I 

EM   =    -RC*uLCG(P72/PTll     *    GC    *    144.0CC 

PPTURN 

ENC 

T  I  r  E    STAT(*C1  ltVMltBETAl  ,fi6TA2  t RMACHR.R«AX1  ,RMIM1, 

I  2  ,  PHI  1  ,  F  H  C  2  ,  T  I  ,  TT  1 ,  P 1  ,  P  T 1  ,  \\  P  1  ,  f  HCT  1 ,  *  HOT  2  ,  •".  '  *  5NT  ,  0  P  r>  I  R  2  , 

,CFAC,  AlF2,P2,PT2,  T2,TT2  ,  7JVT^  ,VN2  ,P°AS^  ,*^C0  ,r  c"4,K,'E4, 

♦•♦■♦♦++♦♦4  4+4  44  44  44+4  4  44+4+4  44  4  4  4  4+  *444++++44  4  4  44  444+++4+++ 

+  +  ■»  +  ++++++  +  t  +  +  +  +t+l+  +  +  +  t+t  +  +  4-+  ♦  +  *+  +  +  +  +♦-  +  ♦-  +  •-♦+  +  ++++♦+++++++ 


SLEPCU 
1CEV  ,KC 
2DF5IZ2 
3NFCWS ) 

t  -t  +  ♦  ♦  +  + 

+  +  +  ■♦+  +  + 


♦  4  4  -»  +  +  + 

♦++♦+++ 


+  -»-»  +  ++  +  +  ++  +  +  +  *  +  +  +  +  ++4  +  +  +*++t+  +  -4*4++  +  +  +  +  +  +  +  -f  +  +  +  -t  +  «-+  +  +  ++  +  +  +  + 
+  ♦  ++++++++♦  +  +  +  +  +  *+  *++♦++  -f  *  +  +  +-(■  ♦  +  ++  +  +  +  +  +  +  ♦-  +  •-♦  +  +  +  -►  +  +♦  +  +  ++  +  +  + 

+  4 

♦  ♦ 

+  +  *+  +  +  +  +  +  +  ++♦+++++*+  +  +  +++  +  ♦+++♦  +  *+  +  ++  +  +  *+  +  +  +  +♦+  +  +♦•+•  +  ♦♦++»  + 

+  +  +  +  ++  +  +  ♦+   t*  +  +  +  +-t+*+  +  +  +  +++  +  +  +  +  4*  4++  +  +  +  4+  +++++++++r++++++++ 


IMPLICIT    RFAl*£<  A-H»P-Z) 

INTCGER**    :■■=> -ZZ,"  a"  ITEi  IC.NNCP  ,NE4,NNF4,  NROUSf  L  I  <Pf  LIMI 

cccv^j    /Ncr*.ii-.7/  ncol^COLi  ,nn,ne 
1  ,nnp,n^pc  ,vr  b r 

COTN    /FCT"/     FC,Gt  C^tPTtTTtWGtWOCT,  PHCTtRMOSTAf 


rim:t,uuft,f 


C  C/'ivo\' 


/>CCjr;T/ 
FIN'C    Hf 


RCI 

RCI 

PC  I 

"CI 

RCI 

RCI 

PCI 

PCI 

Ul 

PCC 

PVi 

1  IG 

r.KS 
1  - 

TfV 
17.6 

2  CT 
«IG 

15.5 

PHI 

1     1. 

TCV 

TCV 

BET 
EET 
B27 
HE  7 
P.FT 

e  =  7 

S  IC 
SIC 

PP*5 
R  P  J5 

PIN 

pk  i 

ft  17 
SLC 


12  = 
1?  = 
1«  = 

13  = 

16  = 

17  = 
1°  = 
lc  = 

=     V'Pl 

N*  = 

CHR      = 

~  g  c  *  Q 
p?\    = 

.  1  7  4  C 
C   =    G 

<;<;«? 
an«<  pc 

=    4. 
266313 


C  ! 


523  c5 
C2   = 
C3    = 

Al  = 
A12  = 
A 15  = 
114  = 
A15  = 
A16  = 

2  =     S 

3  = 
SS    = 
SS2    = 
CD    = 

f  =   1 

E* 
PEN    = 


CI1 
CI1 
Cil 
CI1 
C  II 
C  II 

cu 
en 
/   rj 

.CD 
CC  J 
*T1 
64. 

I  CIS 

1    ) 

757 
12* 
.58 
CM 
CVC 

rvc 

ETA 

P.  FT 

PET 

PFT 
PPT 
C    * 

c 

RMA 

El\ 
.70 


* 
* 


I,5Tf,FZI2,FlIl,Gv, 
KP'a  »MRQWltXK 

EL  »V»RL»ANO    T^'EL 


AT     I.CC    NCOES    3,4,o  (  PCTOR  )  . 


SIC   * 

( 

E 

C 


CC 

c 

T 

*1 

P.C 


u 

M 
Al 
Al 
Al 

s 

xi 

ss 

1 

nc 
1  C 


pr 

FC 

r  ^ 

PC 

pc 

pr 

°C 

PC 

S  (F 

*  ( 
((  v 

44  . 
22, 
C  ■"  "^ 
ao  ~ 

cos 
-  c 

IIS 

♦  1 
Pf  : 

Tr 
Tr 


IG 
1G2 


II 
112 
112 
114 

115 
lift 
117 
116 
ETA1  ) 
F    *    G 
M  *  V  * 
11  )  » 
-     l.fl 
(RCI  1 

+  :.? 
(~c:i 

.250? 

.1117 
1)     + 

vc 

VC2 

7.2^5 
?-TAl 
BETA1 

PE  TA1 
ECT^1 
PETA1 


C    *    BTU 

l^Cl.'JC    +    0TAN(HE^A1)*0TAN(BETA1)))     / 

S3ii    *    ^  C 1 1    +     1*63  5140-3    *    »C  1 17 

)     +    .42145    *    TSIM  4CI  1) 

11570-2    *    PC II     4    l  .6.1Q960-5    *    PC  I  12    - 

J     +    4.c321^.?-5     *    DSINC^r.IU     +    3.G4'103C-7    * 

57    *    OC'I    *•    q.65<i920-"3    *    PCI17    - 
311640-3*0SIN{  KCI1  J     -    1 .  72  7r«; -C-^^OT  AN  (  c  C  1 1  ) 
c"-10    *    rCIl^1     -    .923535    *    OCHMPCIl)     + 
,02:i427*CTAN<RCIi)     -    45.  774S*  :L2G(  RC  1 1  ) 


78 

2 

4 
5 


PC  I  I  ) 
PPASS 
KAPFA 


/     (RMAX1    -    RMIMJ 


=     c 


1  u 

-C. 


VC     -     7«.G6*TOVC2     +     l?<5.c*Tr,7C3 

(n.C3=i=nE7Al    -    2.  2370-1  2*UETA1M 

4*=(2.  5-SIG  I     -    C.  C02264*(  l.d    -    51  G  )  *Dr»  CRT  {  CABS  ( 1  .  3 
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FILE:  TLF80 


FORTRAN   Al   NAVAL  POSTGRADUATE  SCHOOL 


cOC 


£5C 
7CC 


C 
C 

c 

c  ♦+ 


1-5! 
F  12 
F>F 
EXF 
R  IC 

1  * 
P  ic 

PKC 
SKC 
CEL 

1  (  1 

2  (- 
SLC 

1  BE 

acc 

BCC 

CCf 

2  (1 

j  = 

i"n  £ 

r.Fi 
l  si 

ACC 

?cc 
1  ♦ 
ccc 

CEL 
CEL 
CFV 
HE! 
PE/ 
FFS 
IT 

efT 

E  E  T 

cy  i 

CM 
Pf-C 

7T2 

VI 

VV2 
1 

V2 

CFA 
1   - 

TO 
1  C. 

PTZ 

T2 
1  G 

P" 

FHC 

W2 


CTF 
IT 
IF( 
VM2 
IP  ( 
WR  I 
FCF 
^/! 

CL/ 
Rt-C 

FNT 
P  =  T 
ENC 


G  >  J  ^  i1 

G    =    R 

CI    = 

c?   = 

IFF     = 

f!"iCF 
cr    = 

ELS  = 
£LX    = 

TrN     = 

.;n- 

2.o7C 
PSM  = 
T  4  1 3 

N  =  3 
N  =  C 
LOI  = 
.2*^7 
C.  '6 
TA13 
2D  = 
CIFF 

rz  = 
\z   = 

2C..  15 

N  =  5 
OIF  = 
RcF     - 

=    OE 
A?     = 
R    =     ( 

=    1. 
=    1 
Ai    = 
42    = 

=    G 

1  =     1 

2  =    P 
=    Tf 

=    DS£ 

(  R 

=  osc 
c  =    1 

Ff,     = 
22331 
=    OT 
=    TT1 

*    RG 
=     PT? 

2    =     ( 
U    =     ( 
(P 
ST    = 

=      IT 
DTEET 
=    yv 

IT.LT 
TE|  6, 

MAT  {  • 
C!i2     = 

NT     = 
12    = 

=    -P 
URN 


l<  I SH     *     SKIT     *     PI  TEN     ♦ 
2.7j<;4    -    L.  1375**»ASS 
(11.06  23    -    C.  3  44*-?  ASS 
-2.3     •»     2.S5*^PAS"     ♦     ( 
F**5XPC2 
F  121     ♦    P  ICIFF 
C.7CCC 

4.6£7<TrvC  *  24.4  5*TF 
(-O.OGl-^a  +  3.02  37*51 
L  -  ?. 552-4  *  SIG  -  3. 
+  7.042  *  SIG  +  3.621 
C.2  3     ♦    7.06B-4    *    BETA 

-    C.C124    *    dE^Al    - 
j    -    C.CC0708    *    '^2T 
=»(-ACCN*SIG>     *    (EC 
73  J )  )**2 
L.C0  3C5    *    BETA  I    + 

LS    *    PKDELT    *    CELT 

:  L  :  I 

c     ♦     2  ,5*?PASS    *■    ?P 
-     5.  55*F PASS    ♦     31 


,G/(SIG*SIG)  )*BETAi3 
SLOPEN    *    PHI 
♦    U.43  75*P.PA5S2 

+     i.  5d  3-J  HASS2)  /P'UCHP)-*t-:XPni 
5.27r^     4    7.5*RPASS     -    2.5    *    PP  ASS  2) 


.CC7 

c:x 

.2r-5 
t    - 

FKCE 
<  Oi) 
-1.7 
C.29 

.43 
AGO 
C-L 
IFF? 
F>"7A 
FCI1 
CC-6 

EETA 
f  FTA 
-  1. 
■  CO 
HC1 
1 

FT  (V 
5GPT 
hfi* 
FT  (V 
-  ^ 
CTA": 

(CO 

£*r,c 

1  - 


*    'nASS2 
+     5  5.6    *    (R°A2S    - 
r.2    +    BCCN?    -    RMACH 
20    ♦■    CELCIF 

♦     (-  INCH    -    =1  !=•  E  F  ) 
1      -     FH      -     FI\CG     ♦ 

+    RC  12  J/2.GJQ 


1  /    57.2^73 

2  /    57.2S-573 

;c 

/    GM1 


VC2 

C    *    O.Cn01*4*SIG2)*rtETAl    ♦ 
102".-''+    *    SIG2)*3ETA12  > 

*    S I G  2 ) *  1 . CD- f * 8  F  T A 1 3 

I  -    1.2360-5    *    f  >  F  T  A 1 2    *    3.10-SD-7    * 

O.C;)OCr-e^    *    BCTA12 

II  +   1  ,3fcO-5    *   rtETA12 
CN/3IG2)*(03IN(3.  :4-15c3*EIG    / 

6.1950-5    *    BETA12    -    1.473S3-6    * 

FN    *    ( SLJPEM/(SIG**3) )     *    PH I    + 

ass** h, * g 

.34    *     PPA-SS2    -    CS7.2*P°AS3*<:  PASS2 

^.52^) <*2 
F**CCON 

*CDFLD  I 
CEV 


"1 

ir 

*2 

»7 

(3 

03 


*    ( 

F2*l 

CS'.s 

HC2* 

CAbS 

••    I 

.LT. 

'c\ 

.ICO 

<5C) 

CCN 

LCD 
(PT2 
C*CL 


VI     * 

1 

/ 


r: 

7< 

P  ■> 

\  \ 

F  F 

) 

VE 

U 

CG 


DP 

S) 

GC 

PG 
w 

+ 

(  F 


"  ]  *  ( 
IP2* 

|"  12/ 

-:■!=( 

*    ( 

4  2)=* 

^■:^ 
-     0. 
G*(  P 

(  V 
4^..  C 

TT  i 

: )  / 

SIR  2 

C  12/ 
-    V 

GCT 

TT    6 

E  N  C  E 

2r.-M 

(G'n 

12/ F 


1.000 
r;  p  s  I «  2 
1 2  .  0  C ) 
!  .ono 

V:-11*CT 

C  I  2  )  / 
4     ) .  0  2 

C-3?  >2 
TI  -  P 
->*VM2~ 

)**(G* 
(  RG    * 

12  .0  0) 
f2N) 

C    700 

00 

r,'CT  p 
* . 00  0+ 
/2.00I 
C)     /    < 

Tl  )     * 


♦    CT 
+  CFS 

+  OT 
4MB 
(  2.0 
1  >21 
s*  or 
1) 
(l.C 

GM  1 1 

T2) 
2+OP 


AN (  3P t  A  1  ) * DTAN ( BE TA 1 )  )  ) 

IZ2*n=>S  122  )  )    *    1^^.000    / 

£M{   ^T'i!:}*0TA.,J(3ET42)  )  ) 

ETAi  l*PfH 

C*SIG*V1*RBAR) 

C*0^'C    -    3 .109476*DFAC2    + 

;C3)     *     (2.  )00*SIG/OCCS (eETA2 )  ) 


►     (  3T  VJ{  ALP2  )  ) 


)  )     /     (2.00    * 


SIZ2*0PSIZ2) )    *    144.000    / 


EAC" 
(CTc 
*RyA 
RG  * 
GC    * 


EC    I-.'     2C    I  TERATIOMS1/) 

r.  (^ET4  2  )  )**-2)/(G*«G*GC*T 2*144.000 

CH2 

TT2) 

14^.0  CO 


SUPFTUTINE    PC  AT  A  (ZA,  FA  ,rt  ,"LX,  KK,  LIM  I  »L  MR  »L  IM4) 
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FILE:    TURBO 


FCRTP^N       ;i       NAVAL    POSTGRADUATE    SCHOOL 


■++++++-f  +  + 


4++++-4  4  +  +  ++  +4  +  ♦  +++♦+  +  ♦>-♦■  +  +■♦■♦♦+-•-  +  +  +  ♦■♦+-♦■  4"4>4>4>4>4'4>  +  4>4>4>4'4>4>*4-4>4'4>4  44>4>4'  +  4>  +  4  4'4>4 
4  +  44 

44  4  + 

4  4 44  44  44+4  4  +  ♦♦•♦+4  +  4*  +  4  4  4  44-  44  4  +  4>4  4+  4  ♦+4+4«  4  4  44>44'4'4"  4»*  +  4  4  +  +  +  +  ++• 

IMPLICIT    REAL*E( 4-H.P-Z) 

IMEC7C  *4    \RFAC*-V'«P.  ITE,IC.NNCD  ,NP4t.MNE4»NR0WStLlMRfLIMI 
CCfWN     /PC  CI/    PG»G»C3tFT  ,TT,^  ,*JCT,  PHCT  ,*HCST  A, 
lLINL:r,UCLLET,PSn,r(TU,r2I?,FlIlr'3C 
CCf^CJ    /LIC/    \FEAC»N*RITE 
CINENS  ICN     «lSI,:,'-(?liMS) 


NPEAO  =  ! 

NWFIT5  =  6 

RELX  =   C.2<*C0CJ 

INITIALIZE     STREAM    FUNCTION    ITE°ATICN    CCU! 
CR    REH*3     ANC     INTECe**2    STTP  AGE 


'ER     ,KK.    SET    SIZE 


KK  =  0 
LINP  = 
UM  = 
LIM    = 


5*  CCO 

2CCC 

5CC 


221  = 
ZZ2  = 
ZM1) 
It  (2) 
ZM3) 
lt(t>) 
ZM5) 
ZA  (6) 
ZA  (7) 
Z  *  (  a ) 
ZA(S) 
EMI) 
EM2) 
EA(2) 
E*  (M 
EA<5) 
EA  it) 
EA  (7) 
EMS) 
E4  (9) 


IhPSE-FClrvT    GAUSSIAN    AESCISS4S 
,7745?666«?241A83 

.cccaccccccoccua 

2Z1 

2Z1 

271 

2Z2 

1 12 

III 

'III 

-III 

-III 

III 

22? 

-Ill 

111 

212 

-III 

221 

112 

-III 


wE  IGFirtC     V.ALLES    CC^ 


PT.    GAUSS  IA!^    GUADP.AT'JP.E 


hkl    =    0  .  5  555  f  5 


fcfcZ    =    0 

*(  1)  = 

k  (2)  = 

*  <  3  )  = 

W(4>  = 

MS)  = 

v»m  = 

I*  (7  )  = 

W  (  P.  )  - 

V>(  c)  = 


V  If   1  "rW  k  1 

V- V2*Wv  1 
V>  lrl*Wt»l 
io  V  2  * VVs  1 
In  l»2*'-U2 
k  V  5  *  -I  u  1 
ft  V  1  *  t  \-i  1 

V  V^'*W  w  1 
>  V  1  *  W  W  1 


555555cb-6 


C'ChSTANTS    LSEC     cCf«    UMTS    CCNVCPSIC^IS 

ETL    =     77?.20C 

Fill    =     12.GDO 

F  2  12    =     1*4. JDC 

F2  13    =     Fill     *     C2I2 

C  C    =    3  2 . 11 40 C 

RETURN 

ENC 
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FILE:     TLFB' 


FORTRAN       Al       NAVAL    POSTGPAOLATE    SCHOOL 


ICC 


IOC 


SLPRTUT  INC  ^»1  INEXCR) 
KEXCR  =  -.\=XCP 
WPIT~(  b  iKC)  NcXCF 
FCPVAT(«  SXCEcCEr;  MAXIMUM 

i  • ,  no//  j 

STCP 
ENC 


ALLOWABLE     S^ACE    FOR    REAL*"    VARIABLES    eY 


ICC 


4  +  + 

44  4 

4  + 

44 

44 

4  + 

44 

44 

44 

44 

4  + 

44 

44 

44 

44 

44 

44 

44 

44 

44 

444 

444 


slepout 
\exci  = 

Vi  p  I T  r  (  6 

FCPVAT ( 

it  no// ) 

STCP 
ENC 


SLPPCUT 
NEXC4  = 
l>PIT-(6 

prpv.iT  ( 

1'  .110/ / 

STCP 
ENC 


SLEPO'JT 

ie* .n-vi 

4  4  4  4  4444 

4  4  4  H  +  4  + 

TH 
TH 


^E    EPR2INEXCI) 

-t  rxci 
,10 J)     NEXCI 
•     EXCEECEC    MAXIMUM 


ALLO..ABL"     S^ACE    FOR    IMT*2    VARIABLES    BY    ' 


INE    c? P  2 <\EXC4) 
-NEXC4 

•  KCI     NEX^ 

•  EXCCECEC    * 
) 


XI MUM    ALLOWABLE     SPACE    FDR    REAL*2    VARIABLES    5Y 


HE    ^PL 

, FRAT  ,E 

4  4*4444 
4  4  44+44 


4  4  4   4  44+4 
4  4  4  4  444-  4 


IS    SU8R 

E  FCLLC 
AXIA 
CELA 
AX  IA 
C~LA 
AH  SC 
AX  I  A 
AB  .SC 
AX  I  A 
AH  SC 
AD  I  A 
PELA 
AB  SO 
STAT 
ST  A  T 

4  4*4444 
4  4444  +  + 


TA, 

4  4  4 
4  4  4 

CUT 
V.  I  "■ 
L  V. 
TIV 
L  V 
II  v 
LUT 
L  V 
LUT 
L  V 
LLT 
p\r 

T  IV 
LLT 
IC 
If 

44  4 

4t4 


r<c,R« 
nnCC, 

44  444 
4  4  444 

INE      C 

arc  i 

E    FLU 
ELCCI 

E    Fi  C: 

p  rL 
•ELCw 
E    FL 


I  TY 

ITY 
jk 

ITY 


E    FL 
IC     EF 
=     CrV 
r     OEV 

Pr-  PS5 
FRES3 

44  +  44 
4+4  +  4 


ITY 


FI 
I  A 

T     • 
1  -1 

UP 

4  + 
4  + 


,PMIN, 
AT , Nc^ 

44444+ 
4+4444 

AT5S    A 

FT r^S: 

\T    TH 

A'  TLE5 

AT      Tr 

angles 

A  JGL  -S 

AT     J  H 

ANGLES 

AT     Trt 

ANGLES 
CIENCY 
TIGN  •*■ 
TION  A 

c  RATI 
E    RATI 

4+4  4  44 

4  4+  +  44 


.eye 

1  !c+t 

444  + 

+  44  + 


,CR 

PCW 

+  +  + 

4  44 


TcXTRCMX 


acra 

J    TH 


►      J  "+  T  5     ^ 


A 
NG 

NG 

r 

C 

4  + 
4  + 


J        +L4 

T     rH 

r   tH 

STAT 
T    TH 

T  TH 
L:  A 
L"     A 

cp:? 

FOR 

+  4-4  + 
4  4  +  4 


P       I 

:t 

ST 
PO 
TH 
~H 


Mr    ! 
hE    ! 

4  44 

4  4  + 


.06 
) 

+  44 

44  4 

6  IS 

=  T 
r  n 

LET 

CV. 

OP 

LET 

TOR 

TLE 

T'P 

r  r\ 

ST 
nfn 

TAT 

+  4  + 
4  44 


,OALP»NPCTOB,ALP . 


*PLOCO< 

vplocc 


4  4  + 
+  +  4 


4  + 
+  + 


LCT  CF 


INLET 


I  ML 

I'.'L 


T 

OJ 
TNL 

,•  T  -i 

•JR 

+  +  4 

4+4 


ilet 


TL 

ET 
,'1 


+  + 
+  + 


+444+4444+4+4+4 
4+4444444+4++++ 
4  4 
44 
4  + 
44 
4  + 
+  + 
44 
4  + 
+  + 
44 
+  + 
44 
44 
44 
4  4 
4  4 
4  + 
44 
4+4444++44444++ 
4444444++++++++ 


'JTLET 

CUTLET 


IMPLI C I 
INTEGER 
LCCICAL 
LCCICiL 
LCGICAL 
CCNMPN 

l .  ^  n  e  .  n  k 

CC,"MPf : 

CINFr-S! 
CI.^ENS  I 


T    RFAL*fl(  A-H,P-Z)  ,     PEAL*4{0) 

*4    NREAC.MiR  ITP  ,IC»K,\n  ,»VT>,  rt  NE^.NROwS,  L  I^P.L  IMI 

*]    TITL!  <  271  ,  TITL2( 3?  J.TITLM  2a),TITL  +  (  3n)  ,TI  TL?(35) 

*1    TI  TL£(  ?M  ,TITL7(B6),  TITL°  (  .?*  J.TITLlt  17)  ,7ITL10(  35) 

*]    TITLll(2ej  .~ITL12(2C)  .TITL1H27)  tT IT  LI* 123) 

/  N  CC'J  *  T  /    NCO  L  ,  NCOL  1  t  MN  ,  (■  c 

K  .NNNBC 

/>C;  JT.  T  /    VRC*  .MRO'Wl  ,KK 

CN    CPC  t  1  )  ,CVCL(  1)  ,,-xrl.(  ^t  ),  ^E  (  1  ),CALP(  1  )  ,  j^' AT(  1) 

CA     PC  11  )  ,Vt(  1  )  .HE  {  1  )  ,AL  P(l  1,  D  E  N'  1  (  1  )  ,RPAT  (  1  )  ,  ZTA(  1  j 
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C  =♦* 
c  ** 
c  ** 
c  ** 
c   ** 


****<*t:*4:M***  ************  ********:;^*******  *******-************* 
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ICC 


:-c 


nc 


**** 

DA 
CA 

DA 
CA 

D.a 

CA 
CA 
CA 

CA 

ca 

Ci 

C* 

CA 
CA 
UR 
FC 
1  1 
RE 
IF 
J 
CC 


CC 

NP 
CX 

c> 

ex 

CX 
CA 
CA 
CA 

CA 

ca 

FC 
1  1 
R  F 
IF 
CA 
Ca 
CA 
CA 
CA 
UP 
FF 
Ic 
CA 

ca 

CA 
CA 
CA 

RE 
IF 
CA 
CA 
CA 
CA 
CA 
UR 
RE 
IF 


**,*  * 

TA     TI 


TA 
TA 
TA 
TA 
TA 
T  A 
TA 
TA 
TA 
T  A 

TA 
TA 


T  I 
T  I 
TI 
TI 
TI 
T  I 
TI 
TI 
T  I 
TI 
TI 
T! 

T  T 


ITC{  5 
PMATI 

■     Yr 
A  Q  (  1  "3 

(nans 
=  NRG 
30  I 
ORC( 
CV2L 
CBE( 
n/iLD 

CRAT 
J    = 
NTIN'J 
14    = 

H(l  > 

>l r  ?) 

YL(?  ) 
YL(4) 

IL  Dc, 
LL  GS 
IL  PL 
L  L  ML 
LL  DS 
I  T  =  (  6 
SMAT  ( 
=  Y  r 
AD(  15 
(NANS 
LL  Cc> 
I  L  G3 
LL  ^L 
I  L  »L 
LL  D  5 
ITE(  -, 
AC(  lb 

LL  OS 


*  **** 
T  L  1  /  • 
112/' 
T  I  2/' 
TL  i/« 
T  L  5  / ' 
T  L  6:  /» 
TL7/« 
T  I  3  /  • 
T  L  9  / ' 
TL1U/ 
T  L  1 1/ 
TL1<Y 
Til?/ 
TL1A/ 
,  ICC) 
5>  ,• 

s ;  2 

.  <  )  M 

.EC. 2 

Tee 
=  1, 
I )  = 
(  I)  = 
I )  = 
( I )  = 
( I)  = 
J  +  i 


**  *  * 
:xi  A 

iXlA 

5  X  I  A 
i  X  I A 
5  FLA 

PELA 
i  u  en 

A  n  S  C 
iBSC 

•  ati 

•  n  -  v 

•CcV 
'TT 
•  TCT 

>nc 

-  *r 
AN  * 

)  on 


L  V 
L  V 
I  V 
T  IV 
TIV 
LUT 
LLT 
I  LT 
Jci 

r   *  t 
IA- 
M 
A  I 


!  *  *¥ 

"^L  ) 
FLO 
rLG 
ELC 
E  F 
F     F 


TIC 
IC\ 

[f.NJ 

PF  = 


*** 
CIT 

c:t 
c:  r 

CI  T 

LnW 
L°w 

L0'J 

LC* 

L  Oil 
F  F 
\N 

fl    • 

3SU 
SCu 


S^S********   <$«******-.***-.$:**$$;>*:***$*:<: 

Y  PF"FIL:  A  T     ^iTCP     r.'Lc"Ti/ 

Y  PRrPlLc  AT    =OT0P    Q'JTLrT'/ 

Y  PBCiFIL:  AT    ST1TPP,    INLET*/ 
v  PprFTLE  AT    STATC^    nU~LET'/ 

ANGLES    *T    DnT3*     INLCT»/ 

ANGLES     AT     PCTHP     OUTLET'/ 

ANGLES    AT     «nTC*    CUTLET'/ 

ANGLES     AT     STATCR     INL  ET  •  / 

ANCLES    JT    STATGP    r<JrL-T«/ 
^ICI-^CY    AT    PPTCR    INLET1/ 
OLE    RCTQ3    OUTLET'/ 
3LE    STATrr.     rCTL£T'/ 
r^E    RATIO,    riCTCP  •/ 
?=    °ATIC.    STATCP'/ 


**■* 

** 

** 

** 

*** 


YCU    *ISH    TO    ENTEP    THE    PLOT    SEQUENCE?     't/t' 
.     '  ,/) 

:tc  5co 


MRCW 
^C  (J 

V?( 
BE  (J 

E  T  A 
PR  A 


1 
) 

J  ) 
) 

(J! 
T  (J  ) 


LI 

LL 
t  L 
LL 

IT 


GS 

?! 

PL 

OS 
{  6 


tCl  1  ■> 
(NAN" 
LL    OS 


LL 
LL 
LL 

LL 

IT' 


O   J 

PL 
PL 
OS 
(  * 


FCU1 
=     -5  0. 
=     <?M  I  N 

=     70  C. 

MT 

T  (' 
T  ( 


ceo 

CCC 


'  VG 

■\yr, 


A  D  (  1 5 

(NANS 


iio 

>  ,  '     >C 

;   2    = 

*  )     JAN 
t»  .2  ) 

^  lT 

P  «r- 

7  (  immg 

T  (  «'^G 

?  z  ■/ 

lio 

*  )      <Afv 

^  it 

PSE 

T  (  •  M  v(, 

T (' 4MG 

11 C  J 

<  )     iA^ 
EC. 2) 

N  I? 
FSr 

T  (  «  •»NG 
T  { •  W  G 

EP« 
11C) 

*  )      IAN 
EC. 2) 


c   v 

NC. 
c 

CG- 

fM\f 


CO7 1 


3  N  U  L  • 
30WL' 


,  N  R 


I'- 


,cv 

»cv 


-L,C^.C  ,CXYL,37,TITL1  ) 
3L,  IRC  ,OXYL,3  7,T  ITL1  ) 


CJ    In  I 
•  ,/) 

C    EGJ 


SH    TC    CONTINUE     rLOT    SEQUENCE?     ',/,• 


!'!rtL  • 
OWL' 


,MR 

,  N  R 


IA 

1  4 


tCo 
,Ch 


EtORC,OVL,35,TI  TLK) 
E,0«C,  CXYL»35,TIT!.  5  ) 


:co 


c 
C-QT 


r.  n  i\ 


GCT 


2NWL' 
iOWL  ' 


,  N  R 
i  N  ^ 


14 
1  U 


*    •  1 


ATfnsc 

at,:cc 


nXYL,27,T TTi  13  ) 
GXYLt27tTITL  13) 


C     5C0 

3  M  h  L ' ' 

JO  W  I.  • 

C     5  00 


'14 
14 


,CA 


LP.r-^r  ,fXYL,,5,T  ITL10  ) 
LP,CRX  fCXYL,35,TITLlC) 
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«C 


41 


CC  A 

0 

c 

r 
C 

CCNT 
CALL 
call 
CALL 
CALL 
CALL 
WP  IT 
PEAC 
IF(N 
CALL 
CALL 
CALL 
CALL 
CALL 
WR  IT 
FEAC 
IF(N 
CALL 
CALL 
CALL 
CALL 
CALL 
WP  IT 
RgAO 
IF  (N 
J  = 
CC  A 
C 
C 
J 
CCNT 
CALL 
CALL 
CALL 
CALL 
CALL 
►  PIT 
READ 
IF  (N 
J  = 
CC  5 
n 
c 
c 
c 
j 

CCNT 
CALL 
CALL 
CALL 
CALL 
CALL 
%  P  IT 
REAO 
I  F  ( N 
CALL 
CALL 
CALL 
CALL 
CALL 
WP  IT 
REAC 
IF(N 
CALL 
CALL 


J    + 

C     I 
PC(  I 
VdL  ( 

B<=<  I 

ALP  ( 

=     J 

INUE 
OS  I 

r,s  = 

PLC 

PLC 

r>S7 

Elf, 

(15  , 

A  M  S  . 

OS  I 

GSE 

PLT 

PLC 

DST 

^(6, 

(15, 

ANT. 

D^  I 

GSF 

PLC 

PLC 

DST 

E(6, 

(  15, 

AKS. 

J     - 

1      I 

PC(  I 

B£(  I 
■     J 

INUF 
i)  SI 
GSE 
^l.C 
PLC 
OST 

"(e  , 

(15, 
ANS. 
J  + 
0  I 
FC(  T 
V=L  I 
F  AT  ( 
BE  (  I 

=     J 
INUE 

OS  I 

\J  J  L 

PLC 
PIC 

O^T 

=  (6  , 
(15, 

Af.'S  . 

OS  I 

GSE 

"I  r 

^LC 

DST 

E(6, 

(15, 

AM  5  • 

L>S  i 

gs: 


l*PCW    +    1 
*     L ,  M  R  C  V.  1 
)    =    RC(J J 
I)    =    V2(w) 
)    =    B  6  ( J  ) 
I  )    =    CEV1  (J  ) 
♦    1 


IT 


M*GM  N3NWL*  ,NRlA,rvEL,C?C,CXYL,38,TITL2) 
•M*GNNN30WL  '  ,NR  14,0V EL  ,0DC  ,0  XV L  ,  ?8  ,  T  I  TL2  ) 
M 
C) 

.Z)     GCTC    5C0 
T 

•MMGNNNiNML1  »NR14,C?£  ,ORC , CXYL ,36 ,t  IT16I 

'MMGNNN30WL'  ,NR  14tCii  E  ,OKC  ,  CXH. ,  36,  TI  TLo) 

C) 

■MANS 
.2)     GOTC    5C0 


(  'M 

P  v 
1C) 
N 
C«2 
PCa( 
1 


)    = 


yHMMNUL*  .NnlA,C.UP,C*C  ,CXYL,2S.T  I7L  11  ) 
^GNN'^SOwL1  ,.\R14,CALP,CP-C,CXYL,28,titlii  j 


AN  S 

)     GGTC    500 

I 

MRCW  1 

°  C  (  J  ) 
ALF( J ) 


M  T 
PSE 
7  (  • 
"i  (  • 

11C 
<   ) 

EC. 
f*RC 
=  1 
)  = 
I  ) 
I  ) 
)  = 
♦ 

r>  it 
p  c- 

T  I1 

TC 

~  ^ 

110 

* ) 

EC. 
f  it 
p  Sr- 
T(  ' 
T  (  • 

£  OM 

110 

*  ) 
EG. 

N  IT 
PS! 


M^♦G^^^3NWL•  ,»\R1A,CRE,.jRC,  CXYL»36,TITl.7l 
'4MGNKK30WL1  »NR  1 A  ,  CQ  E  ,  TPC  ,  CXYL  ,2  5  ,T  I  Tl.  7  ) 

) 
MANS 

2 )     CCTC    50J 
A    +     I 
,  Wk  H*  1 

°  C  (  J  ) 
=     V  Z  (  J  ) 
=     P^AT (J ) 

AL  F( J) 
1 


■i.vGNNNSNWL1  ,NS  I  A,  CV  EL  ,ORC  ,OXYL  ,  3« ,  T  I TL3  ) 
^GNf^OOfcL'  ,NK1A,CVEL»CRC  ,CXYL,38,TITL3) 

) 

"UN  5 
2)    Cn 


5C0 


•i«gm  n?nwl  •  ..mria.cbe^rc,  cxvl,36,  titls) 

?4PGNNN30kL'  ,NH1A,  CB  E  ,-3.sC,  CXYL  ,  3  6,  T  ITL  9  ) 


) 

H  A  IN  S 

3  1        ^p  T  I 


:co 
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60 


IOC 


CALL 
CALL 
CALL 

VP  IT 
R6AC 
IF  (N 
J  = 
CC  £ 

u 
c 
c 
c 

J 

CCM 
CALL 
CALL 
CALL 
CALL 
CALL 
*R  IT 
READ 
IF(N 
CAIL 
CALL 
CALL 
CALL 
CALL 
WRIT 
PEAC 
IF(N 
CALL 
CALL 
CALL 
CALL 
CALL 
CC^ 
RE1U 
ENC 


PLC 

PLC 

DST 

E(6  , 

(15, 

ANS. 

J    + 

0    I 

PC(  I 

V6L  ( 

BE(  I 

ALP  ( 

=     J 

piue 
ns  I 
sse 

PLC 

PLC 

0S7 

E(  S 

(15  . 

A  MS. 

OS  I 

CSC 

PLC 

°LC 

DST 

E<6, 

(1^, 

ANS. 

OS  I 

GSP 

OLC 

PLC 

DST 

INUE 

RN 


7  (  » 
T(  • 

EP* 
IK 
<  ) 
EC. 
fcC 
1     1 
)     = 
I  ) 
)    = 
I) 
+ 


MP-GNNr^AL'  ,>M3i.4,rR  at,c^c  .cxyl^^t  itl  14  ) 

MMGN»  N  ?0W  L'  ,MK1  ^,CP  AT,  CRC  ,rXYL,24,T  I  "L14  ) 


) 

MAN  5 
2)     CCTC 
W    +    1 

,  yR-Cdi 
°  c  ( J  ) 

=     W(J) 
ALP<  J  ) 

=     CEV1(J 
1 


5  CO 


N  IT 
F  cr 
TCI 
T(  »M 
E^M 

UC) 

*  )    N 
CC2 
h  IT 
FSC 
T  (  »M 

7  (  »M 

Erf!" 
1 1CI 

<  )    M 
EC. 2 
N  IT 
PC  E 
7  {  "' 
T  (  .   4 


MGNNN2MWL'  »NR  14,  CV  EL  ,  C°C  fCXYL  ,  3  9,T  I  XL4  ) 
*SM^N20»L«  ,NP14,CV  FL,CRC»GXYLt3{'»T  ITL4  ) 


ANS 

)     CCTC 


iCO 


yr,  n p .  r,  :m w l  • , n p.  i + ,  C2  c , o 3c ,  c x  yl  , 3 7 , t  i  t l  n 

"GNNN2VJWL'  »NRl'+,CSttGRC  r  LXYL  •  37  ♦  TI  TL  9  ) 


AN  <? 

)     CCTC 


SCO 


l"GNNN3K*L'  ,NR14,CUP,CRC  ,CXYL»29,T  ITL  12  ) 
MGMMN3CWL1  ,-^14,C.iL:»,C'>C,CXYL,2?,T  I  TL12) 


1 
? 

♦  ++  + 

+  4  +    ♦ 

♦  + 

-f  44  + 

4+44 


SUEPGUTIhc    SL  INC  l«C,FS  I ,  VZ  »  V1*  t  NCDE,  V«l  f  RC  H,  jr  r  ?  ,  ALP  1  ,.'JT  = 
RHCtAL°,El,l  I  ,  I  c"^l  ,V,  5HCTT  ,  T-yc,  fT^T,  =  RESS,PTn7,  a,  r  1  ,  T  I , 

PhCT!,Hl,hSi  ,dZ,t^TP2,JPSIZ2,F-,HStZ  !,VZ  I  ,  V?.  1  ,  ZC  ,  -  N  T  ^  r  ?  ,  1 
NNCC,vl~<''  ,N  ^  4,  N(-  Ck-S  ) 

44  444-4   ++++++++++  *-  +  +  +  +  +++44  +  ++  +  +  +  -»-4-i-4   ♦  4  4  +  +  + -t  +  +  4  +  +  +  +  +  +  ++♦+-,. 
4  4  4  4+4  4+  +  4  +  44  4  44  +  44  +44  +4  +44444  444  +  +  +   +44+  *++++++++++++++++ 

4+44+4++H++++++++++44+44++4444444+4  44+4+444++4++++++4+++4 
+♦♦+++++444444+4 ♦+4444444+++4+44f+++++t+44444+4+++++44+4+ 


it ."uni , 

T  T  1 ,  P  T  i  , 

4  +  tc  -*■  +  + 

+  +  -«-++  +  *■ 

♦  + 

+  4 

+  444  +  4  4 

+  4  +-r+  4  + 


INFLIC   I 

INTEGER 

CC.*MC  I 

1 ,  nnp,nn 
cCNfu:1 

LUINLET, 

COVCN 
CIPPMSI 


CIM 


CIN^'SI 
DIVERS  I 
CI,vE\5l 
DIpcNS I 


T     *E-L*P< A-H,P-Z) 

*4    NRE4Cf NWH ITEflCf NNCD,NE4,NNE4,NRGWS,LIMR,LIMI 

/kok.t/  NCULf^ccLi  ,nn.,ne 

FC  ,M1N6C 

/F^C-1/     FG ,G, Cn  .  FT  ,TT  ,  kG  ,WOC7  ,  FhCT  ,RhCS7  i, 

UCLLt  TfP«lI,rt7,jfP2I2tFl  I!  »;3C 

/c-ccj*1  T/    w(.nv»,MP.nwi  ,kk 

^   _r  ( i )  ,vk<  1 1 ,  -i  ( z)  ,  :f  h>  ,-"hc  C)  ,p»in77  j  i  >  tTcvi  1 1  ,ttpt  ( 

CN    Vi(  1  )  fVL(  1)  ,r-'l.  (  I)  .TwcLIl)   fPF.E  SS(  U  i  PTHT{  \\  ,»M) 

r>    PS  I  (  1*  ,  AL  IM  1  )  ,  J=  ( 1  ) ,  I-  { 1  > ,  H S  (  1 )  ,  Z 1  (  j  )  ,  D  (  8  )  ,  3  (  «!  )  f  ZC  <  I  ) 

rXi(f)  ,  ZC$(rtJ  f  "J  AC  (2  f2)  f  jZ  (3  )  ,  OR{  3  )  ,  DPS  IP  (3  )  ,  DPS  I  Z  CJ) 

FM T  PC P  ( 1  ) 

rJLEKl  liMF  (1  )  fNCCE  (NE>+fl  ) 


CN 

CN 

cr 


BEGIN  W ITH  ^IG  NrDE  CF  FIRS" 
THRCLGH  EACH  ELEMENT. 


ELEMENT  ANC  THEN  CYCLE 
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FORTRAN  M       NAVAL  PCSTGRAOUATE  SCHOOL 


C 

13C 
C 


14C 
15C 


16C 

17C 
165 


85 


Ml 
P  = 
IT  = 
K  = 
IFI  I 
IF(  I 
RCI2 
32  = 

IF(P 

K  =  I 
GCTC 
IF(  P 
EL  = 
Eo  = 
E2  = 
CALL 
PI  = 


EPS 
IFIE 
IT  = 
IF(  I 
IF(P 
EL  = 
GCTC 
EP  = 
GTTC 
IF<  P 
EL  = 
ER  = 
GOTO 

K    = 
GOTO 


NCDE  ( 
5  It N  1 1 

C 

I 

HI.  CC 
TA1.  E<J 
=    "C  IN 

EIM1I 
CHEC 

GE.PSI 
CHEC 

_>    L 

G7»PSI 
£1(4) 
El  (5  ) 
(EL    + 
SFAPSt 
SF(3)* 

+  sr  ( 5 

CHEC 

DA*  s< 

5.LT.  1 

IT  +  1 
.  G  T  .  1  5 
,LT. P  ) 
£2 


GT.PSI 
EiH) 

E  1 .  ( 4  ) 

'CHEC 


<C 


IF    C 
CALC 


II, vj 
) 


.l.ANC.NTEl.SQ.l  J    GOTO    730 
.1)    GOTO    20  C 
II  ) 

K    TC    SEE    IF    P     IS    V»ITHI.\    TH  E    PRESENT    ELEMENT 

(NCCT( <,5»  )  )G0TC140 

K    NEXT    ELEMENT    »ELOW    THE    PRESENT     ELEMENT. 


INOCEt K,4I I) GCTC 170 


E°)  /2.C0 

E  ?  ,  - !  .  C) ,  S  F  ) 

FSHNCCEtK,?))     ♦    SF  ( •'♦  )  *PS  I  (  MOOEt  K  »  4  )  ) 

I  *PSI  d\00E<  <,5)  ) 

K    FCR     STPEAMLINE    CONVERGENCE 

FA     -    P  ) 

•  0-C6  )G3T0190 

JGCTni^Q 
C-QTC1<:C 


(NSCE (K,3) ) )GCTC13S 


K    NEXT    ^LO^ENT    ABOVE    PRESENT    ELEMENT 


C*V/CRGENCE    CRITERIA    SATISFIED. 
IL-TE    WHIRL    AND     STATIC     ENTHALPY 


L9C 


NK3  =  NCOE(K,?) 
NK4  =  NCOc  (  H  ,  '-,  ) 
NK5  =  N"JE;k,c) 
RCT1     =     SF(3)     *     RC(NK3)     *     SF{4)     *     30(»|i<4)     + 

5  F  { «5  )     4    f?  C  (  N  K  5  ) 
VZ1     =     SF(2)     *    W<S<J)     *     SF(M     -     7Z(\Kh)     + 

CP(  5  )     *     VZ  (N<j  ) 
VP1     =     SF(7)     *    V=?(NK3)      I-     SF(4)    *    VF(M<4)     *■ 

S  F  (  5,  )     *    V  ( ^K  5 ) 
VM1     =    CS'JKT(V71    *     J  11     *    VF1    *    -Z-'l) 
4LP1     =     'F(i)     ~     ALP(NK3)     +     c  F  (  <♦  )     *     aL>MNK4)     + 

SF{  -)    *    £LP(  ■:;<?  ) 
RHOl     =     SF(3)     *     <?hC(M<3)     +     SFf  +  )     *     2»-C(i\'KM     + 

SF(  5)     *    PHC(*K5) 
RH0T1     =    S  p(  2  >-cHrTT  (NK3  )     +     Sp  (  4  )  *  *HCTT  {  'JK  i  )     f 

SF(  5)     *    PHCT7(NK«5  ) 
Tl    =     Sp(3)     *     Tpio<,\<3)     <-     sr(£)     *     TEVP(Nis4)     + 

SF(  5  )     *     Tr  IP  (  \KS  ) 
TT1     =     SF<3)     *     T7CT(NK3)     *     S F  (4 1     *     TTCT(NK4)     * 

5F{  =  )     *     TTrT (NK^> 
PT1     =     SF(3)     *     FT  CT  (NK3  >     +     3t"(4)     *     0TOT(NK4)     ♦ 

SF(  S)     *     PTfTf  *K5) 
PI    =     SF(3J     *    PSESS(NK3)    +    Sc(^)    *    PkFSS(N<4)     + 

SF(  5  )     *     F<?  =  Sr>  (NKr  ) 
ENT1     =     *F  (  3  )     =»     ENTKCP\NK3)     +     Sr  (  4  )     *     =NTk0P(\K4)     + 

SF(5)     *     ENT"0P(NK5  ) 
HI     =     SF(3)     4    rCi"N     f     SC(A)     *    r|(NKA)     + 

SF(5)     *     H  (  N  '<  5  ) 
HS1     =    iF(3,)     *    hS(r,<3)     +    SF(A)     *    HSINK4)     + 


206 


FILE:    TLPPO 


FCRlZth       Al       NAVAL     PC STGRADLATE     SCHOPL 


20C 


SIC 

21? 

C 
23C 

C 


2AC 
25C 


26C 

27C 
265 


C 

285 

C 
C 

c 

29C 


C 

3CC 


K    = 

GOTO 

rch 

va 

Vci 
VM1 
4LPI 
RHOl 
RHOT 
PI     = 
PT1 
7T!    i 
Tl    = 
HI     = 
HS1     ■■ 
GCTG 
IF(  M 
IT    = 
K     = 

IF(P 

K  = 
GHTP 
IF(P 
EL  = 
PR  = 
=  2  = 
CALL 
PA     = 


EPS     = 
IFIEP 

IT     s 
IF(  IT 
IF(PA 

EL    = 
GPTQ2 
Ek    = 
GGTC2 
IF(  P. 
EL    = 
pp     = 

GCT02 


K    = 

GOTO 


SF(  <U 
I 

210 
=    =C  ( N 

V  Z  {  M 

vpc  r  : 

C  SO  F  T 
=    ALP( 

=      PHC( 

*    RHG 
F  PES  S  < 

(•TUT  ( 
TT1T( 

TEMP  (N 

KM  1  ) 
FS  (  N  I 

215 

Ei.EC. 

C 

I 

CHC-C 

C-E.PSI 
CHEC 

_♦    1 

CT.PSI 

EliS) 
Fl  (7  ) 
(EL    + 
SF AP  E  ( 
SF(1  I* 
4    SF  (  o 
CHEC 
CAB$( 
5.LT.1 
IT    +     1 
,GT.  15 
.L~. P) 
12 

;c 

E2 

tc 

CT.PSI 
Eld  ) 

J1I3I 
?C 

CHEC 
-    1 
^C 


*    l-5(NK5) 


II 
1  ) 
1  ) 
[\ 

M 
M 
TT 
IS  I 
M 
M 
II 

1  ) 


Zl    *    VZ1    *    VR1    *    VRl  ) 

1  ) 

I  ) 

<M  1) 

!  ) 

1  ) 

1  ) 

) 


l.CP. ISTA1.EQ.3)     GOTO    200 


K     TC     SEE    IF    P     IS.    WITHIN    THE    PRESENT    ELEMENT 

(MCCE (K.7II  )GC7°  2*0 

K  NEXT  ELEMENT  PELOW  ThE  PRESENT  ELEVEN1". 


'NCCE (K,3) ) 1GQTC270 


EP ) /?  .CO 

E2.1.CCSF) 

PS  I  ( r:  C  ~  =  (  K  •  1  )  )     *     SF  (7)  *°SI  (fJHOElK,  7)  ) 

)±i-SI  <\..iCE(K,3)  ) 

K    FCP     STREAMLINE    CONVERGENCE 

r  A    -    P  ) 

•D-C6 IGCTC2CC 

JGC7C2SO 
GGTC?fcC 


(Nl  CE<  <,  1)  )  1GCTC285 


K    l»  PXT    ELEMENT    AECVE    °?ESEMT    ELEMENT 


IF    r  CNVE  P  GENCC    CRITERIA    SATISFIED. 


CAl CLL 
PC  I  2     =    SF  (  1  )* 

•»     cF(c>*; 
B2    =     SeU)*Ftl 

*    SF  <  6  ) * 


STATIC      Fr.THAL^ 
♦    3p(  7  )*RC(NfjOE(K 


.  TF     WHf?.  L     AN 

C(  ,\rjL- (  k,  i  | 
Cf  t  :'")£(  K.  3  J  ) 

CCcUti))     +    S  F{7  K3  (I\'CDEU,7)  ) 
!  PJCC£<K,o)  ) 


7  )  ) 


M 

N2 

\3 

N^ 

N5 

N6 

N7 

KB 

F  C  S  (  1  ) 

PXS(  2  ) 

»  C  t  (  2  J 

RC$( h  ) 

PC*( 6  ) 


GC    TC    \rx 
■*•  C  E?=  (K  ,1  ) 

NfDE  (K  ,2) 
NCCF (K  ,3  ) 
N  rn.E  (K  ,4  ) 
N  C  CE  (  K  ,  c  ) 
l^CCE  (K  ,t  ) 
NCDE  ( K  ,7) 
h  C  C  E  (  K  ,  'J  ) 
SC  tM  ) 
°  C  ( N  2  ) 
h  C  (  N  ?  ) 
^C  (N-  ) 
»C<N5) 
P  C  <  N  f-  ) 


T    ELEMENT 
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*CC 

c 
c 
c 

c 


en  r 

—  Sj  \* 


60C 

7CC 
C 


RC$  (7  )  =  -C  IN7  ) 
R  r  s  (  e  )  =  ft  c  ( N  S  ) 
ZCS(  1  J    =    7C  (M  ) 

ZCM2)   =   ZC(N2 ) 

ZC$(  3  >  =  ZC  (N2  ) 
ZCS(M  =  ZC(N*I 
ZTS(5)  =  ZC(N5) 
Zr$(6)  =  ZCCN4  1 
ZC$(  7  )  =  ZC  (N7  ) 
ZC$(8)  =  ZC(NS) 
DC    5CC    I     =     1,*NE 

FINC    THE    JACOB  IA*!. 

CALL    JACC6(F1  ( I ) t Zl ( I ) tO t E,PC$  ,  ZCS, P-JAC ) 

DETJ    =    RjACdt  1)*RJAC(  2,  2)     -    R  JAC  I  1 ,  2  )  *F  JAC  (  2  , 1  ) 
FINC     INVERSE    HF     JACOPIA^i. 

DLM    =    3  JAC  (i  ,!  )     /    'ETJ 

RJ/Ctl  ,1  J    =    R JAC(2t2l     /    CETJ 

RJfCIl  »2  )    =    -FJAC(1,2  )     /    CETJ 

RJ£C(  2.1  )    =    -P  J*.C(  2  til     /    OZTJ 

RJ/C(2  ,2  )    =    DUM! 


FIMU    CNI/OP     AND    ZKl/Dl 


DC 


400     t 

CZ(  L  ) 

CRCL) 

CCMINUE 


-     l.NNE 

=   pj  flf.<  i,n*n(L  ) 

=    PJAC(2i  1  )*D(L  ) 


RJX  (1  ,2  >*  =  (  U 
PJAC(2t  2)*£<  L  > 


DP 


CHECK    TC    SEE     IF     SCLUT  ION    IS    AT    INLET 

FIND    C ( F  S I  » / D R    AND    CCFSIl/OZ 
SIR(I)     =    CF  (  1)  *DSI  IN  11     +     )P  (  2)  -°S  I(N?) 


0P5IZ( I )     = 


CCNTI 
I F  <  N  T 
IF{  I  S 

CPSIP 

DPSIZ 

GOTO 
QPSIR 

cps  i : 

CCNT  I 


nue 

fl.c 
1A1. 

2    - 


CR  (  ':)  *PS  I  (N!2  ) 
DIM  5)*PSI  (  \>5) 
£a  (7)*?S  I(.\7  1 

r  z  ( i )  *  °  s :  {  m  l ) 

CZ( 2)*PSI(N21 
CZl5>*PST  (\"5  ) 
CZ( 7)*PSl(\7) 


(  4  >*PS!(N4  ) 
?  o .  (  6  J  *  o  s 

^  (  ?)=*P 


_irm 

CZ(2»*PS  ICP) 
DM 4)*«»SI (N't) 

11  (  6  |*PSH^6) 
H  l  {  8  )  *  P  S  I  ( N  8 ) 


l)    en 


:03 
600 


7CC 

£       = 

2    - 
NLC 


SKI)  *  DPSIM  1) 

S  F  ( 8  )  *  C  P  S  I  *  (  3  ) 

SF(1  )  *  OPSIZU  J 

SF  (?)  *  CPSIZ(3) 

DP5Ie (MJ 
C  P  S  1 1  ( «  ) 


SF  (7)     *    JPSIR  (  7)     + 

SF(7)     *    3PSIZ (7 )     * 


RE 
EN 


TURN 
C 


SLEFCUT  I  NE    FCAl  (F,Wvh,ZA,PdfVZ  tBCVZC 

intt 


l,\^ 


M^OP,  TTr 


.\£A,r -f-  e^, 


,WRl  ,VU,*JRC,N:]0: 


,wu. 


4  44  44  4 

4+4+H 

44- 

4  + 

44 

4  + 

44 

44- 

4  4 

44 

44- 

4  + 


44  +  4   444  +  4444-44   t'44  +  +4+4-++  +  4-+++  +  ++4-+4+444+++  +  +44  +  44  +  ++44+++++  +  4  + 
-»4  +  444444-»-4444W  +  4  +  ++++44444   444+4-+-4  +  4+4  +  +  -+-r44  +  +  +  +  +  ++-  +  4-4-4+44  +  +  + 

4  4 

THIS    SUBRCLTINE    CALCULATES    TH= 
F(r;,2)    F*c    KNOW^M    RADIAL    OIST^I 

ENTHALPY,  ?C^L?>  .     -NO    E\Tt-"C?Y. 
CALL    STATEMENT    DCFINITIC.'jS: 
F    =    »IGnT    HAM:    SICE    VECT'13 


3I0E    VECTCP. 
WHIRL  » 


V     =    GAUSIAN     i-ilGHT     FL'.'CTIi^i     A»"AY 
h     =     ^iCCAL     THTAI      E'lTHALPY    VEC  TH° 
Id    -     Acp,A>    cc     ^XC!^    G^LSIVi     V ALOES 
EA    =     ARRAY    GF     ETA    GAtSIA.N    VALUES 


4  4 
44 
4  4 
44 
+  4- 
4-4 
4  + 
44 
44 
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44  W    =     ^CC~»l     AXI'iL     VELOCITY  .       44 

44  PC    =    APP^Y    Cf    NOD^L    R    COORDINATES  ♦♦ 

44  7C    =    AFP.'.Y    Cc    \C  iML    Z    f  rr'OI  \^T"5  44 

44  V»PL    =     NfCAL     ANGULAR     v^wrNTUM     VECTOR  +  + 

•♦♦  \U    =     NCD4L     ir'.SCL'JTE    7  ANGcNT  1 .81    VFLTCITY    VECTOR  44 

4+  nsc  =   ^'iEs    *here   3cu.\l:ary  ccnci  tions   APPLY  ♦  + 

4+  NCCE    =     flF-RAY    HF    ELEMENTAL    ''OOc    ASSIGNMENTS  44 

4+  nn.  =   klml-E'-s   cf  NCuEC   in  the   vesh  44 

44  N5=NLv::iEKrFcL  =  MFM^!\ThtwESH  44 

44  VU    =     NCC-H     RELATIVE     TANGrNTIiL    VELOCITY    VECTOR  +4 

44  ME    =     TYPh    Lt-    ELEMENT     .SRRAY  44 

44  +4 
44444  4  -14444  +  444444  4  +  +  4  +  +  44>  +  +  +  +++4+4  +  4,++  +  *  t  4  +  J  +  +  +  +  +  +  +  +  +  +  +  +  4.  +  +  4+  +  ++4.+  + 
444444   +4  +  *  +  4444+-4+4+++-»-++-t-++++4  +  +  +>-i-+++++4+4>+  +  +  +  +4   4-  +  +  ++  +  +  +  +  4  +  +  +  +  +  +  +-  + 


5C 

c 
c 

C 


If 

IN 
CC 

1  ,N 
CC 
CC 

1LI 
C  I 
CI 
C  I 

c  1 

CI 


FLIC 
TEC-2 
NMON 
NE,\' 

MG.N 

NLrT 

NrNS 

V=NS 


IT  SEA 

r*4  ?-;r 

/NCC'J 

Nee  ,nn 
/nccj 

/  F  C  C  I 

,LCLL= 
ICN  ZC 
ION  VZ 
ICN 
ION 
ICN 


l.*E(  i-H  ,?-Z) 

EAC,NV»c  ITE  .  ICNNCJ  ,NE4,NNS4,NR0WStL  I  MR  ,  L  IV  I 

NT/     NCCLtNCGLl ,NN, NE 

NirVC 

N T/    "RnWtMRCWlfKK 

/    P-7  ,G,CP»  °T  ,TT,l*G,!OGT,  PhCT,RHOSTA» 

T,?SI  I  ,  2T  J,=2I2  ,  Fl  II,".- 

(I  )  ,nC(  1>,H  I)  ,F(1  J.TTITIU 

(l)«ll(l)fkPL(l)t*i.i(L>fSFi(8) 

C(  I)  ,NTS<  I  )  ,  vtJE  ("C«,  1) 

■M  ,/m  )  ,  tA(^)  ,  F$(  3  »,  h."  (  1  ),ENTROO{  1  ) 

3)  ,c(Sl ,SF<31  ,RC5<  *),ZCS  (3)tRJAC(2,2) 


ZEPT  IZc    n(jT    F$(  ) 


CC    50    I     =     l.NNE 
FMI)     =    O.CC 
CCNTIMLE 


CYCLE    FCR    EACH    ELEMENT. 


CC 


100 
M    = 
N2    = 

N3  = 
N4  = 
N5  = 
N*  = 
N7  = 
N2  = 
RCi( 
RC$( 

pr.  *( 
PC*  ( 
PCi( 
RCS( 
RCi  ( 

Rrs( 

ZC.  S( 

ZC5  ( 

ZC$( 

ZCS( 

ZCM 
ZC£( 
KJ( 
ZCS( 


1 1 
r>C 

NC 
NC 
NC 
NC 
NC 
NC 
NC 

:  i 

2  ) 
2 ) 
a  ) 
5 ) 
t > 
7 ) 
f. ) 

1 ) 

2 ) 

3  > 


)  = 
)  = 
)  = 
>   = 


=   1, 

CE  (  I 
DE  (  I 
HE  (  I 
C=(  I 
^  (  I 
Cc  (  I 
'."  I  I 
■3£  (  I 
=  »C 
=  ,«C 
=    pr 

=    PC 

=   we 

=    °C 

=  ?c 

=  RC 
=  7C 
=    ZC 

*    ZC 

=    /r 

ZC 
ZC 
ZC 
ZC 


NE 

1.1 


1 ) 
? ) 

2  ) 

-  ) 
5  ) 

-  ) 
7  ) 

I.F  ) 
(N  1  ) 
(M  ) 
(N2) 
(M4  ) 

(N=  ) 
(N*1  ) 
(f.'7  ) 
( N  r-'  ) 
( v !  ) 
(N2  ) 
( N  l  ) 
(,M-  ) 
(N-5  ) 

if  e ) 
( ,\  7 ) 

INS  ) 


CYCLE    FCR     E*CH    LOCAL    NOJP  . 

DC    2  CO    J    =     1,9 

CALL     SFt'P- (  EMJ  )  ,ZA(  J  ),SP) 
CALL     JACCB(  r,.IJItZA(Jlr),:, 
GET  J     =     PJ4C  (I,1  J  *=RJAC  (  2,  2) 
P  INC    Tt~     INVERSF.    CF    THE    J 

DL^  1    =    R J" 

RJrtU  ,  1  ) 


iC  (I  ,  !l     /    ^FTJ 
=    CJ^C(2,2)     /    CFTJ 


tc*^  zes, 

-    RJ4C(1 

flCCOIAM. 


J  iC) 
?)*RJAC(2tl) 
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10 


lOt 


11C 

c 
c 

c 


zee 

2CC 

c 

c 

c 


5CC 
IOC 


RJJECU.2J  =  -RJAC(i,;i  /  OETJ 
RJ/C(2tl)  =  -PJAC(2fl)  /  D5TJ 
Rj;C(2 .2  )    =    QU«1 

FIND    NI«i:fNI*VI,T>=TAIfNI*BI,D(WcL)/i:RiD<HI/OQ 


SLlviU 
SlMV 
SUM  ft 

CSDP 
S  LH  T 

TCS2? 
CfcRLP 
CHOP- 
CC  11 
N4 
So 

su 

IF 
SU 
DH 


C 

1 

Vij 

m 

vy 


0  . 

c. 

c. 

c  . 

c. 

'    c 
■    0 

c. 

i<L 


T  E 


00 
DO 
DO 
130 

DC 
•  C 

.  c 

DO 


CSCR    = 


GC 
SU 
DH 


TC 

yv 

CR 


IC6 


CSCR    = 


SU 
DW 


FL 


INUE 


0 


1  ,NNE 
CE<  I  I  ,KL  ) 

b^L    ♦     SF  (KL)*V£'.  N41) 
UMT    4    SP{KL)*TTGT(NA-l) 
I  )  .2w. 2  I GCTC1 05 
UMV    +    SF  (KL)*VU(  N41J 
HJW     +     (PjAC(2f  l)*C(KL) 

BJACIZ.JI'^KI   )  >-H<  \'41) 
SOP.    +     (RJ.*C(2fl)  =»n(KL) 

RJAC(2t2)  *eiKL)  )*tMTRQP(M41  ) 

UMV    ♦    SF<KL)*-i"J<  NA1J 
hDR     +     (RJACCtl  )  *n<KL  ) 
*JAC(2t2)  »fc(  KL)  »*W3(  V41J 

SDK     ♦     (f.JAC(M)n(KL) 

P.JAC(2«2»  *~(  <l)  >*ENTRCP{N41  ) 
UMR    +     SF  (SL)*v*(  ^iil 
DWRLtf    +     IRJ.K  Ci  1  )*0(i<L  ) 


+    RJAC(2t2)*ElKLI  )*V.RL(N41) 


FINC    r$(NCOE( I  I  ,1  >  ) 

TDSCF    =    SUM    *    OSOR 
CC    20C     I    =     1  ,*NE 

XX     =     (TOSCR     -    DHCR     +     (  SUMV  /S  J  4*  )  *OVR  LP  )  *  (  SF  (  I  )  /  SljMU  )  -DE  T  J 
FM  I  )     =       FS  {I  )     *    XX  *V-  (J) 
CCM1NUE 
CCNT  UUE 


ASSEMBLE    RIGHT    HANC    SIDE    VECTOR . 


F(M  ) 
F(  ^  2  I 


oc 


( I*  I ) 
<  1*4  I 

( m ) 
( iwi 

(re ) 

5CC     I 

Ft  (I  j 

■IT  If*UE 


F(M) 

f  { ^  2 ) 


F{ 
F( 
*( 
F  ( 
F( 
F( 
1, 
C. 


3) 


^7) 
t  6) 

CC 


FS  (1 
P5  (2 
F5(3 
F  S  { A 
F  $  (  ? 
Fj  (6 
F5  (7 

fs  ta 


cckttnje 

PETUF-.N 
EN  C 

+  +  +4  4  4   4  4  +  4-  4  4  +  +  ++■  +  +  +  +  +  +  +  +  +♦  +  +.  +  +  +  4  44  +  +  4-+.+  +   4  +  +  +  +  ±  +  +4.4.  +  f  <-  +  +^  +  +  +  +  +-+  +  ++  +■+•  + 

44>  4  4 

4+               SUBRCLTiE    CSI"0     (MCN-IMSL)  ♦  + 

4+                ACAPTEC    FOP    THE     360    BY    PUN     EPONPL L  +  + 

44  4  4 

44               PURPCSE  ■>■*■ 

44                       OBTAIN     SCLLM^    CF     \    SET     CF    S I  MULT  ANEDUS  LINEAR                           +4 

44                        ECLATirNft    AX=^  +4 

44  4  4 


210 


FILE:  TlRSn 


FORTRAN   Al   NAVAL  PC  STGRA31ATE  SCHOOL 


44 

44 

•14 

4  + 

44 

44 

44 

44 

44 

44 

4  + 

44 

44 

44 

44 

44 

-♦4 

44 

44 

44 

44 

44 

44 

♦  4 

444  44  4 

4  44  4  4  4 


USAGE 
CALL 


D  SI  V  J(  A,  ?  ,N  ,KS) 


DESCPIPTICN  Of  OAmpETERS 
A  4NO  H  MUST  PE  RE*-L*8 
A    -    MATRIX    L'F    COEFFICIENTS    STO'-O    COLUMNWISE. 

THESE    APE    CcS7rt;:YF:     IN    THE    COMPUTATION.       ThE 

SIZE    CF    MATRIX    A     IS    N    '3Y    H.  +  + 
Q    -    VECTOR    CF    ORIGINAL    CONSTANTS    (LENGTH    m).    TH^SE 

AR  =     RCPLACE")    riY    FINAL    SCLJTICN    VALUES,     VECTOR    X 
N    -    MJMPER     CF     EQUATIONS    AhO    VA°IAbLES 
KS    -   OUTPUT    DIGIT 

0  FCK     A    NC^VAL     SOLUTION 

1  FCP    A    SINGULAR     SET    GF    ECUATIONS 


RE  MASK? 

MATRIX    A    VIST     PE    GENERAL. 

IF     MATRIX     IS    SINGULAR     »     SOLUTION    VAL'JFS     A? 
LFSS.    AN    AL  T=c";ATT  V-     SCLUTrC"]    v1Y    ?c    C9T»Ii 
MATRIX     INVERSION    (  M  !NV  J     ANO    MATRIX    PRODUCT 


HE  AMINO 
EC  FY  Jc 
( G  P  P  P  0 »  . 


SUBRCLTINES 
N  C  N  E 


^l  FLNCTION  SUBPROGRAMS  PECUIRED 


444444444+44444444  4+  4+4  +  44444  44-  +  44  4+++++++4444444+444++ 
4+4++4444++4444444444444444++444++4444444++++++++++4444 


44 
44 
44 
44 
44 
44 
4  + 
44 
44 
44 
4  4 
44 
44 
44 
4  + 
4  4 
4  4 
4  4 
I  N  G  4  4 
4  4 
4  4 
4  4 
+  4 
4  4 
4444  +  4  4 
+  +  +  4  4  44 


SLERCUTINE    DSIVC(A,EfN,KSl 

SLERC'JTINE    DSIVQ    NOT    INCLUOEC    NON-IMSL    LIBRARY    SUBROUTINE 

SLPRf'UT  INE    STIFFS  C,7C,a,FM$,ZA.c--.,W  ,NCD  c  ,  RHO, 
1PSI  ,F  ,RHS  ,  =  ,-t  .NPC/^C^,  Nr4  ,NNE4  ,NROWS  ) 

4444444444  +  +44444++4»444444  +  4  +  444++444  +  4  4  +  4+44+4  +  44444444 -:-4  +  +  +  +  +4  +  +  4 
4+44444  +  +  ++  44  r*44444+4  +  +  4+++4  +  44444444  +  ++4444  +  +  +  +  »-  +  +  +4+  +  +4  +  ++  +  +  +  ++44 
4+  4  4 


-rT-r-rTTT^-^f-4  +  4+4+  +  +++  +  +  +  4  +  ++  +  +  +  +  +  +  +  '-^+f 

4++++44+44++444++++++++++++444++++444+t44++++4444+4+++++++++*+ 


4  + 

4  + 

4+4444444444444++444444f444+44+444444+++ 
4+44  44 

IN 
CC 

CC 
1LI 

CC 
CC 
CI 
CI 
CI 
CI 
CI 


FL  IC 
TEGE 

i**  y  r,  *•  i 

v  yi  i», 
NL  =  T 

NVCN 
fENS 

ne:  c 

f'EfS 
,v  r  N  S 
MENS 


IT    F 
R*4 

/nc 

NEC, 

/FC 

,LCl 

/m; 

/L  I 

I  CN 

I  CN 

ICI* 

ICN 
ICN 


EU* 

NR  EA 
C'JNT 

*  *  t  »     I". 

cm/ 

LI  T  , 

CHijT 

r/   .\ 

Z"  ( 
?  r<  C  ( 
EM  (N 

a<  -j) 

RL  *( 


!  A  ,  NROVi  S »  L  I M  R  ,  L  I M  I 


m:-h,p-n 

Ct  r-V.PIT=tI  C,NNCD,NE-'4,NN 
/    NO   L,'-CHL1  ,NN,f  E 

C 

=  "  ,G,CF  ,  rT  ,TT  ,  UG  .^OrT  ,  =t-CT  ,°HCST  A, 

F?I  I,3T'J,F2I2,F1  :i,CC 

/     «KCv»,«ROwl  ,KK 

ffacnv^  :te 

1)  ,  aC  (1)  ,8(1 ) fBPP(9 ),RFC(l J 

1 )  ,  >  r  C  r  (  N  E  4 ,  1 )  ,  ■'   (  6  ) 

N  C  C  ,  1  l,UJAC{Z,?Jt?SI(  l),F(l),RHS(U 

,  "  (  c  )   t  S  c  (  3)  ,  Z  A  <  9  )  ,  r.  A  (  9  )  ,  *  (  «?  )  ,  DNO  7  <  3  ] 

8)  «ZCS(t)t cMS(8t  e),RJ4C(  2,  2  J  ,ONDR(  8) 


CC 


400 

M 

N2 

N!3 

\4 

N? 

N6 

N7 

N3 

r  r  $  <  i ) 

RCS(2  ) 

R  C  $  (  2  ) 

RC$( m  ) 


II    =     1 ,  v. 
KC=<  !  I 

fvcc:  ( 1 1 

f-CCZ  (  I  I 
fvrCE  (  I  I 

r^c;;E  ( 1 1 

f*CC=  (  I  I 

kce  (  1 1 

NODE  (  I  I 
PC  ( 
PC  ( 
rC  ( 
RC  ( 


1  ) 

2  ) 
?  ) 
4  ) 
=  ) 
(-.  ) 
7  ) 
e  ) 
1  ) 

N2  ) 

N  r  ) 
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FILE:    TLR«0 


FCRTR4N       Al 


.AV4L    POSTGRADIATE    SCHOf'L 


RCS( 5  )     = 


221 
ICC 

c 
c 
c 


22C 

c 

2CS 


C 

:-ic 

3CC 
22C 
C 
C 

c 


25C 
C 


RCS( 
RCS( 
RCSl 
ZC£( 

zcm 

ZCM 

zr.  s( 
zc*< 
zc$( 

ZCM 

zcs( 


i  = 
)  = 
»  = 
)  = 
)  = 
)  = 
)  = 
)  = 

)     a 

)  = 
)  = 


?C  (N?  ) 
R  C  ( N  ft  J 

R  C  ( N  7  ) 
Rt  (r  i  ) 
ZC  <N!  ) 

?  r.  (  n  2 ) 

ZC (N3  ) 
ZC  (?'<■) 

ZC  (Nc  ) 
IC  (M  ) 
ZC(N7) 
ZC  (N8) 


PERFOf-M    GAUSSIAN    GUACRATURc    INTEGRATION 


CC    3  2C    I    = 

CALL    SHA 

CHI    J-C 

CETJ    =    P 

F  I* 

DL^ 1    =    R 

RJ/CU  1 1 

RJ/C(1  ,2 

RJ*C(2  ,1 

RJ/C(7  f2 

DC    321     J 

CNOZ( 

DNDM 

CCMINNF 

IF(  I  I.NF.  1  ) 

CGNTitUE 


ltc 
FE  ( 

CD< 
JK 
f*  T 
JAT 
)  = 
)  = 
)  = 
)     = 

j] 
J) 


EA  ( 
EA  ( 
(li 
r.vE 
(1  , 
U 


DC 
l.P 

=     R 
=     R 


!),ZA{I)fSFJ 

I)  ,ZA(  II  fDfCfPCS  .ZCMRJAC) 

1)*RJAC(2.2)    -    R  JiC(  l,2)*~;JAC(2fl) 

=  >E    CF    J AC C8 IAN 
!)     /    DETJ 
!C(2,2)    /    CETJ 
J.\C(  1  ,2)     /     Jr!TJ 
JAC(  2f  1)     /    02  T J 


j-c( l,  i)~n ( j) 
J<iC(  :,l  )*n  (J) 


+     RJAC(lf2)*F( J) 
+    RJAC(2,2)*E(  J) 


CTTO     1JC 


FIND    PHC,    R,    AND    9    PQR    NUMERICAL    INTEGRATION, 


RFCRB    = 
CC    330    L 
MIL 

p  h-t  k  a 

CCMI'IUF 

SVI«     =     (1.3C/1  R(-CPS)  )*144..00)*I  2.JD0 


C.CCC 

=     LfNNE 
=    N  C  0  E  ( I  I  f  L ) 

=    KHCR3    ♦    Sf(LI  *PHG(N  I  ID  *FC(\'I  IL)*R(M  I 


L  1 


DC    3CC    J    = 
IF(  I  I  ,A  =  .  1  ) 
CCNT imjE 

DC    310    K 

FV 


CCMINL! 
CCNT  I h Li E 
CC  MI  MUt 


ASSENGLE 
LQ'JNC  ^PY 


N(  1) 

N(2) 
N(3) 

N(  <+) 
M5) 
M6) 
N(7) 

N  ( a ) 

DC 


M 
\? 

N3 


It  ^c 

OCTO    30  9 

=     IfNNE 
$(J,K)     =    =M$(JfK)     ♦    W(I)     *    S  -!K    *     (CNOZU  >*I>NCZ(K) 
+    ONQZi  J)*  )NOR  (  K)  }     "    DETJ 

*    1^4. 0C3 


YSTEM  INFLUENCE  "lAT'IX  W/CUT  REGAPD  CCP. 
CNT  IT  ICNS 


N5 
N* 
N7 
N3 
IS 

M  li 
DC    353    J 
J     =    N  (  J  $ 
EM  I, J  ) 
CGNT  I  ME 


35C 

T 


=    L  ,  |v  N  E 
) 

t    =    L  fNNE 
) 
=    Ew(  I  fj  )    ♦    EM$(  It,  JS) 


ZERCIZE    CUT    6M$(     )     FOP.    NEXT    ELEMENT 
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FILE:    7l^3C 


FCRTR^IS       Al       NAVAL    FC STG&AOIATE    SCH^'JL 


37 

C 

C 

*0 

C 

c 
c 


41 
C 


CO    3  7C     12     =     LtNNF. 

OC     2  70    J  2    ^    I  ,^E 
EMI  (12  t  J 2)     =    COG 
C  CCNTIMJE 

RECYCLE    FCR    NEXT    ELEMENT 
C         CCMIMUE 

MODIFY    SY.^TEN    OF    EQUATIONS    TO    INCLUDE    BOUNDARY    CCN.OITICNS 

CC    410     I    =    1  ,hb 

DO    41C    J    ■     !  ,r\FC 

j  x  =  nj  e  c  (  j  ) 

F  (  I)     =     F  (  I  )     -     cMd,jx)*PSI(JX  ) 
EP(IfJX)=    C.nc 
E«  UX,  I  )=     ^.DC 
EM«XtJX)  =    l.CQ 
F ( JX»     =     P?I  (JX) 
CCMINUE 

RETURN 

ENC 


SLEPnUTINE    REFlMFSI  *F,RHS,NNnC»NE4, 

♦  + 

-14  +  4  +  4  4+  +  -»-4-  +  «++++  +  +  *4  +  +  -t-  +  +  +  -H-+-  +  +++  +  -f+++  + 


10 

c 


N  K  E4  ) 

+  +  +++++-+  +  +-*-4.+-f++>  +  +4-t-++  +  ++--«-+-f 

♦  4- 

♦  *■ 
♦  ♦++  44+  +  ++f  +  +  ++4+++-»--t--t-  +  ++-+  +  + 
+  +-++  +  +  +++44-  +  4-t-4  +  -*-4-  +  ++4-  +  4-+--»-f  + 

1^4,  NRCWSt  L  IM«tLIVI 


r-ESET    F(  I  )     WITH    =>HS  (  I  ) 


FEWPN 

ENC 


SLPRCUTINE    REL4X(R=LX,FSI,"SI^»N6CfN 

4+-»+4  +  +  f  +  t-   f-f-»  +  ++  *f-»  +  +  +  +  -t  +  +-+  +  +  +  +-  +  4++  +  ++++- 
+  +  +  +  +  +  4  +  +-  +  +  +  4*  +  f  +  +  4+4  +  *++++  +  +  +  +-»--*+4  +  +-+-«-  + 
-f  + 
+  + 


M~r:  rf  E4,Nl,l'E4  ) 

+  +  ++++++•  +  +-♦-*■»-+•+-  +  +•+♦+•+  +  +  ++■  +  +  + 
■»  +  -f+-  +  -f  +  +^f++  +  >-*-  +  +  +  +  +  +-t-  +  ++-  +  +  + 

+  + 
+■  + 

+  +  ++•+  +  +■+•  +  +•+•  +  +■  +  +  +  ♦  +  ♦  ++*  +  +  4-  +  +  + 

+  ♦  ♦•  +  +  +  +•+•+  +  *-+-+++-  +  +  +  +  +  +-+  +  +  t-++  + 


IMPLICIT    3EAL*£(A-H  ,P-l) 

I N  T  EH  =  '7  *  4    \R  3  A  C  , f  **  I TE  ,  I  C  f  N  NTO  ,  N£ 

CCNMfl.N     /rcCUM/    MITLflCuLl  ,a,  NE 

l  ,MkE,NNf?c  ,nnnbc 

fCf'TN     /  *■  CC'Jf  T  /    VRO*  ,-«RHWI  ,KK 
CIMENSTCN    PS  I  (  1  )  , PS IC  { 1 )  ,  F  ( 1  ) ,  FHS  (  L  ) 

D  INENSICN    Nn.:  (  1) 


.,UE4»."IFC.<.,S»LI^P  tLIMI 


IF    KK     GE     i 
CONFUTING    N~ 


FPWFCRM    IJNPFP.     R-L 
VELOCITY    ANC    DENS 


-iX  AT  10,-4    !JEcOFE 
1TY    DISTRIBUTION, 
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FILE:    TLFBG 


FCRTfUfv       M       NAVAL    POSTGRADUATE    SCHOOL 


2C 

10 


CC     ICO     I     =    l.NN 

DC    2CC     J    =     1,TN3C 

LTEST     =     I     -     NRC(J) 
IF(LTEST.EQ.O  )     3UT0     IOC 
C  CCNTULE 

PSKII    =    PSIC(I)     *    PELX*(PSI(I)    -    PSIO(I)) 
C         CCNTI.MUE 
RE  TIF, N 
ENC 


Si E POUT  IN£    NOCCN  Ut  F  ,P  S!  »PSI  C, 

4  +  44444444  ♦  4  4  4  44  4  4  4  +  444  4  +  +  4+44-+-4-+1- 

4+4444444-+-4-  +  44++  +  +  +  +++  +  +  ++4  +  +  +  +  +  +  + 

4  + 

♦  ♦ 

4+444-I44  +  +-+444444+++  +  444+4+  +  444  +  +  + 

44444444  +  +  +  4444+444+  444  +  44.  +44  +  +  +  4  + 

IMPLICIT    «EAL*E{  <-H,  P-Z) 
INTFGFR*4    \P  ?ACNVvR  I"^c,  IC»NNCO 
CCfMGM     /NCrJ\T/    NCDC-NCOH  tNN, 

l ,NNE»riN&c  ,nn* dC 

CC^VCN     /Kr!JM/     "GDI*  ,MRDW1  v  KK 

CCNMrN     /LIT/    NFcAltN>P I IE 

CI"CMS!r.\    PS  I  (  II  ,PS  Ir(  1)  ,£M(  Ni\! 

IfPITF     (  NV>PIT=f  1400)KK,X 
14C0       FCPMATt  ■     •  .'  LAFGES''"    EPS    F03     it 

IF     (KK.LT-22  )GCTC1503 

IFl    =    0 

GCTf    45! 
CO       V*  F  ITE  ('J'-FTTE  ,  i  102  KK 
C2       FCFv/T  (  •     '«'  ITER  ATI  C 


15 
11 

C 
C 

c 

c 
c 


46 

45 

C 

c 
c 
c 
c 

c 

c 
c 
c 
c 
c 
c 


.     NO. 
lvEPC-fcNCE    NOT    YET     c.  i  T  I  S  F  I  E  ~^ 


I? 


^REFiPc  FTP  r.FXT  ITr 
STIFFNESS  MATRIX  AND 
P.EPLfCF    PSIO  (  )    ki  ITF 


Evr ICL  i\N0DtNE4, MME4) 

+  +  +  +  +  +4444444  +  +-C  +  +  4444  +  4  +  44-  +  4  +  +++  + 
4  +  +  +  ++444+44444+++  +  ++  +  4  +  444-  +  +  4-+  +  4.+ 

4  4 

4  4 

+  +  ++++  4  +  44+44444  +  +  +  +-+  +  44+444444-44  + 

+  +++++-4++44444+-+44+  +  44444  +  +  +  +  44.4-+-  + 


,Nch,NNE4,\^(JW5,LIMR,LIMI 

r-E 


C  D .  1 )  t  F  (  1 J 

?.RATION    •  ,  12  ,'     IS     »  ,019.12) 


,•     COMPLETE  «  ,/,  '     ST«tiM    FUNCTPV    COM 
,'      IEXT    ITERATION     IS     TN    PROGRESS*) 

f;  at  [n,N  ,    ZEROIZE 

PIJM^    HAND    SID"    VETTTP 
CUR PENT    VALUE    pe    PSI. 


IFL    =    ? 

CC    460     I     = 
F(  !  )     =     i 
PSIO  (  I  ) 

on  46c 

EP  (I 
CCMIVJE 
P  E  1 L  F  ;j 
ENC 


JPSI(  I) 

=    1  ,H 
)     =     CDC 


SUECCUT  If>E    TFST(CST  »PSI0tX,NN0 

444444444+4-4444+4  +  4+  +  ++-  +  «-++4-4  +  4.+-  +  4- 

4++  +  4  +  44  +  +  +444++  +  +44+4  +  +  44-++4+-  +  ++  + 

44 

44 

44+4  +  4  444+4-44  +  4+4+44444  +  +4+4-++-4-  +  +  + 

+++444++4+4++++++4++4++++++44++4++ 

IMPLICIT    REAL*Sl 4-H, P-Z) 
[MtGFR*4    NR  =  AC,.v*r  ITS,  IC+MNCn 
CCVWN    /KrUNT/    ,\CjL  .NCOLi  ,nn, 
l,NNS,NMHC,NNN«C 


Cf NE+» NN=4,NR0NS ) 

4-4+44+    4+  ++-*+-44-++-4+-  +  4-+-  +  ++-+  ►  +  +•+■   ++-+4  + 

4  + 

4  + 

4444++44++4++4+-+44-ff+  +  4  +  +  +  4-  +  -i-44+-  +  + 

44+++  +  4444444  +  +4-4  +  +  +  4-+44-4-+1-  +  +  4-T4-+  + 


,NS*»  ^NF4,MR0WS,L  I  '4R,LIM[ 


CINENSICiN     PSI  (1)  »FS  If  11) 
CCV°/!PE    S'EW    ANC    CIZ    STREAM    FUNCTION    DISTRIBUTIONS 

>    =    CDC 
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FILE:    TLFRG 


FCRTPir>       Al       NAV-L    FG  STGiUDL-ST?    SCHOOL 


11C 
12C 

IOC 


CC    1 

I 

F 

r, 

c 

1 
X 

CCM 

RE1U 
ENC 


CO     I    = 
F  (°S  I  ( 


1  ,NN 


,00  ) 


PS     =    LAfl  b(  (  FS  If  (  I  ) 

CTOliC 

°s   =   r^es(  fs  ic(  I ) 

F     (>.CT.-P5)     GCTG 

«     EFS 
I\'UE 
FN 


GOTO    110 
-    PSI  (I)  )/PS!  (I'M 

-    PSKII) 
100 
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APPENDIX    G 
STAIiPLE   PROGRAM  OUTPUT 


^EMCPY    5>Pbr<2    AVAILABLE 
PE£l    3    =      "9  IMTEGEF    - 


983 


REAL    4   =       424 


NC.    CF    NODES    •• 
NC.    CF    ROWS    = 

NOCE  Z(I) 


KSS;    TASK-1    TRANSOM  If.     COMPRESSOR 
2  22  NO.     OF    ELEMENTS    =    63 


NO.     OF    COLUMNS    = 


1 

C.C 

2 

c.c 

~ 

C.C 

4 

c.c 

c 

c.c 

6 

c.c 

7 

c.c 

8 

Q.C 

c 

c.c 

1C 

c.c 

11 

c.c 

12 

c.c 

12 

0.0 

14 

c.c 

15 

o.c 

16 

C. 1500  0 

17 

C  .  1  50  3  C 

18 

C  •  1 5  0  0  0 

H 

C.  1500C 

2C 

C  .  1  5  0  J  C 

21 

C.1500C 

2  2 

C  .  1  5  C  0  C 

22 

o.  !5goo 

24 

C.2C0JC 

25 

C.2CDO0 

2  6, 

J  •  2  CG  Ju 

2"i 

C.2CCC3 

26 

C.3C00  ) 

29 

C.2C0G^ 

2C 

C.2C00C 

31 

C .  2  GO  jo 

32 

C.2CG0O 

32 

C.2CC00 

34 

0  •  3  C  0  0  0 

■a  c 

C.3C00G 

36 

C. 2 COOO 

3  1 

C.2C0U9 

36 

C  .  2  c  c :;  G 

39 

0 . 4  5  GO  0 

4C 

C. 4500  0 

COO 
COG 
COG 

coc 

cc+c 

CC+O 

cc  +  c 

CC+O 

coo 

CC  +  G 

oc+c 

coc 
coc 

CC+O 

cc  +  c 

Gc+G 
GC+O 

oc+c 

COC 

cc  +  c 

CC+G 

coo 
cc  +  c 

CO  J 

GC+O 


SUVNAPY    CF 

ft  { I ) 


NODAL 


COCRUINA" 
0(  I  ) 


ES 


C.  IS 

0.13 
0.  17 
C.  17 
O.I' 
C.  15 
C.  15 
0.14 

o.  n 

0.1? 
0.11 
G.  10 
C.C7 

G.  *c 
0.7G 

0.1S 
0.  1  1 
G.  16 
C.14 
0.12 
0.11 
C.^6 
C.  70 

•J    •    i  '  i 

C.  17 

0.17 
G  .  16 
C  16 


0.15 

^  :   '._ 

C.14 

0.13 
0.  12 

0.11 
0.10 
C.95 
0.S4 
C.  1C 
0.1? 
G.I7 


67aCD  +  02 
2r-^G0+32 
6^240+0'' 
0 2 20+02 
3°99Q+0  2 
719  40+0  2 
OG'3  LD  +  G2 
?6l ^n+02 

4  7340+02 
6  J 6 3D +02 
73970+02 
76^60+02 
0  3^  10+01 

30icn+oi 

99000+01 

6  5100+0? 
5C210+02 

2^  7qn  +  32 

E66oO+02 

3r3?^+G2 

5  4930+02 
462'-j3  +  01 
9^000+0  1 
4  3400+02 
91240+02 
32190+02 
71060+02 
C7'<  10+0  2 
415  40  +  02 

7  25  20  +  02 
C0100-+  12 
2  = 720+0  2 

4  26  50+02 

5  CQ  m  +C  2 
621  20  +  02 
9  19  n  +  ul 
3H0  2P+G1 


•cor 


H  -. 


C  CO  +  0  I 
■  GO  +0  2 


28720+02 


C.9 
C.9 
0.9 
C.  3 
Q.9 
C.9 
\, .  ** 
G  •  3 
C.9 
C.9 
C.9 
C.9 
C."1 
C.9 
C.9 
C  .9 
C.9 
C.9 
0." 

c.,:> 

C  i 
C.'J 
C.  - 
U.9 
C.9 

c.  > 

C.7 
C.  a 

C.  3 
C.*- 
C.9 
C.9 
C.9 
C.9 
C.9 
C.° 
C.9 
C.c 
C.9 
C.9 


100 

mo 
100 

100 
1)0 
100 
100 
lOu 
1  3  3 
100 

:jo 

DO 

no 

1  )0 
130 

100 
100 
100 
10  J 

100 
100 
1 J  J 
100 

1  JO 

130 
100 
LOO 

100 
100 
130 
100 
133 
100 
100 

100 

I  )0 

iJO 
1 J  3 
1G3 


CO  0+0  0 

2  00+30 

ooc+oo 

C  0  C  +  G  0 
CGO+GO 
C3C+00 

CCO+LC 
CCC+OG 

cco+oo 

GOO+uO 
CJOf 30 
C  C  0  +  0  c 

cco+oo 

CCC+GU 

C  C  3+  u  G 
GOD+00 

coooo 

CCD+OO 

CO  0+00 
CCO+OO 
CO 0+00 
0  J2  +  00 
CCD+OC 
GC  OOO 
CCO+uO 
COO+GO 
CO 0+9  0 
CCO+OC 

cco+oo 

CCO+OO 
C  Cu+  G  C 
CCD+OO 
CO  0+00 
COD+00 
COD+CO 
LCOCC 
COD+00 
j  C 1.  +  J  0 
CCr'+  CC 
000+00 


ABS    PLOW    AM3 

0.0 

3  .  0 
0  .  0 

0.0 

0.0 
0.0 

o.o 
0  .0 
0.0 
0 . 0 
0.0 

u.O 
3  .0 
0.0 
3.0 
J  .0 
J.O 
0  .  0 
0.0 
0.  0 
0  .0 
0.0 
0.0 
0  .0 
0.0 
3.0 
0.0 

V  .  J 

0  .0 
0  .  0 
0.0 
0  .0 
0.0 
0.0 

0 . 0 

J,  0 
0  .0 
3.3 

0.0 
0  .0 


PFL    PLOW    ANO 

0.0 
O.C 

0.0 
0.0 

o.c 

0,0 
0.0 
0.0 
0.0 
O.C 
0.0 
0.0 

0  .  u 

0.0 
0.0 
0  .  G 
0.0 
O.C 
0.0 
J  .0 
O.C 
0.3 
0.0 
0.0 
0.3 
O.C 
0.3 
0.0 
O.G 
0  .  3 
0.0 
0.0 
0.0 
O.G 
0.0 
0.0 
O.G 
0.0 
O.C 
0.0 


216 


NOCE 


Z(  I  ) 


SUGARY    CF 
Pill 


iOCAl 


CuC^D  IMA" 
R<  I  ) 


ES 


41 

C.45000C 

42 

c.4500  :c 

42 

0.4500  )C 

44 

C.4500CC 

45 

C.4500CC 

46 

C.45C0  jc 

4"( 

C  •  6  CCJ  C  C 

48 

C .6  CCO  00 

4<? 

C  .oCOG  ZQ 

5C 

c  .t  coooc 

51 

C  .'000 oc 

52 

c .  e  c  c  j  c  c 

C  "3 

C • 6  COO  CC 

54 

C.6CCJ0C 

C  C 

C.6CC0CC 

5* 

Q.fCOOOC 

57 

C  .600000 

56 

c.  6  no  re 

5<; 

0.6COOO0 

6C 

C.6C0OCC 

61 

C.6C00CC 

62 

C. 0*902  00 

63 

C . 2 902  C C 

64 

0.850  2  00 

65 

C. 3502  CO 

66 

a.«c^zco 

67 

0  .  «  90  2  0  G 

66 

C.6C02CC 

6C 

C.£902GC 

7C 

0.1l°040 

71 

en:-  j4c 

72 

C.  11R04C 

73 

0.118040 

74 

0.  1  U  0  4  C 

75 

0  .  i  1  c  0  •'»  C 

76 

C  .  1 1 .°  J  4  C 

77 

0 .  11  -  J  4  G 

78 

C  •  1 1  •:■  0  4  0 

79 

0. llc04C 

8C 

0. 1  IB J  AC 

c+oi 

C+CI 
C  +  ji 
C*01 
C+Cl 

r  +  oi 

C+ol 

r+oi 

C+Cl 

C+Cl 

C  +  Cl 

C  +  Cl 

C+Cl 

C  +  Cl 

^C  +01 

J0C+01 

~CC+C1 

)0C+01 

""C+01 

n+oi 

C+0! 

C  +  Cl 

C  +01 

C+01 

C  +  Ll 

C  +  Cl 

C  +  Cl 

C  +  Cl 

C+C2 

C  +  C2 

^C+o2 

3C+G2 

CC  +  C2 

nr+o2 

C  +  C2 
r  «.  (-  t 

r+62 

C  +  C2 
C+02 


G.16 
C.  14 
0.13 

0.11 

C.^S 
0.70 
C.  13 
0.17 

0  •  17 
0.  16 

C.  16 
C.15 
C.  14 
J.l? 
0.13 
0.12 
0.11 
C.  10 
0.95 
C  t^ 
C.  "iC 
0  .1J 
0.17 
C  .  It 
0.14 
C.  13 

f\  1     • 

U  •   1  1 

C.h5 

C  .  1  c 
0  .13 
0.17 
0.  17 
0  .  !  6 
C  If 


0.15 

f!  .  !  4 


0 

0.  12 

0.  11 


tj  $490+0 2 
6c7<n  +  02 

2  14  40+1  I 
■5*1  fJO+07 
SI4  5H  +  01 
9u00^+0  1 
4C  -100  +  0  2 
S296L+02 
35240+0? 
64460+02 
0  13  70  +0  2 
356  90+02 

67C  JO+02 

9  5CSO+02 
19173+02 

3  3*5  20*0  2 
52440+02 
5C2PQ+C2 
7 101? +01 
261  5n-r  jl 
S90C0+O1 
402  50+02 
?474)+02 
GC 3  20+02 
£>6<S90  +  )2 
le 3  60+02 
5  Z2  10+0  2 
6^8 10+01 
S  9  5  CO  ♦  C 1 
3 9  700+0  2 
*29  10+0  2 
24  240+0  2 
63510+02 
CC4eO+C2 
3436^+3? 
6O300+0-7 

13<:^i  60+0? 
13  1  .-^5  £<r  +  .->-> 

3  £0  70  +  02 
519^0+02 


C.°100 
C.  9 1 3  0 
C.9100 
L..9100 
C.°1Q0 
C.9100 
0.9100 
CUJO 
C.9100 
C.9100 
C.9100 
C.9100 
C.c  100 
C.9100 
C.910J 
C.9100 
0.9100 
C.9100 
C.Q100 
Q.91U0 
C.Q100 

0.9100 
C.9100 
C.9100 
C.viOO 
C.9100 
0.^100 
C.9100 
C.9100 
C.Q1  )0 
C. 9100 
C.9100 
C.9100 
C.9100 

c.yioo 
C.9100 

C.9100 
C  .  9 1 0  0 

C.c100 


COO+OO 

ccu+Oo 

CCO+10 
C  0  D + 0  0 
000*  3C 

CCO+00 

0  30+0  0 
CCU+uO 

coo+oo 

CCC+OO 
CCO+00 

cco+oo 

000+0  0 
CCO+00 
0  00+ JO 
CCl+  0  0 
000+00 
CUC+ JO 
CCO+00 

coo+oo 

00D+ 0  0 
COO+OO 
000+00 

CCC+OO 
000+00 
C00+  JO 
CCO+0  0 
COC+OQ 
CCC+OO 

coo+oo 

0  0  c .  ♦  0  0 
CCD+OC 

coo+oo 

CCC+OO 
CCO+00 

cac+oo 

ooo+oo 

CCO+00 
OOC+uO 
CCO+00 


ABS     FLOW     ANG 

0  .0 
0.0 
J.O 
0.0 
J.O 
CO 
0.0 
0.0 
0  .0 
0.0 
0.0 
J.O 
0.0 
0.0 
0.0 
0.0 
0  .0 
0.0 
0.0 
0  .0 
0.  J 
0.0 
0.0 
J.O 
0.0 
0.0 
0.0 

n  .o 

0.0 
0.0 
0.0 

o.u 

J  ..J 

0.0 
0.0 
0.0 

0.0 


J.O 


PEL     FLTW     4\'G 

0.0 
0,0 
O.C 
0.0 
0.0 
O.C 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
O.C 
u  •  u 
0.0 
0.0 
0.0 
0.0 
O.C 
0.0 
w  •  G 
0.  J 
0.0 
0.0 
J.O 
O.C 
0.0 
CO 
O.C 
0.0 
0.0 
0.0 
0.0 
O.C 
0.0 
0.0 
O.C 
0.0 
0.0 


217 


summ»py  r«=  nodal  coordinates 

NOCE 

z<  r ) 

R  (  I  I 

3(  I  ) 

AP,S 

81 

0.1l3040r+C2 

0.105*930+02 

C.HOO  CCO+OO 

0.0 

e? 

C.!1*04CC+C2 

C  .95  636  20+01 

0.9100  CJC+OG 

0.0 

83 

0.1U04CC  +  C2 

0.q4Zc2  2  J  +  01 

C.9100 CCG* 00 

0.0 

84 

0. 113040  C+02 

0.7100000+01 

C.9100  GGQ+OO 

0  .0 

B? 

C. 12891 5C  +  C2 

C. D3C 3 50+ CZ 

C.9100CGC+  JO 

0.0 

86 

0.  12OQl=C*C2 

0.  17  2  c;:  60 +02 

C=DOCC">+CG 

0.0 

87 

C.  12S915C+02 

C.16C394D+02 

':.3i')ocoo+uo 

0.0 

86 

C. 12*9 15C+02 

C. 14721 KJ+  J? 

C.910OC0G+O0 

0.0 

89 

Q.12£915C+C2 

0.1"  274  10+02 

C.  ? 100  COD*  JO 

0.1 

9C 

0. 12301 5C+C? 

0.1164730+02 

0.9100 c  in+oo 

J.O 

91 

C.  12  '  =  L5C+C3 

G.9  75  4C70+O1 

C.^lOJ  cco+oo 

O.J 

92 

0.12=^1 5 C+U2 

3.739000'")+  U 

C.9100 COD+GG 

0.0 

S3 

C.13r7<:cC+C2 

0.  1829GCO+02 

C.  ?IOOCOC+00 

J.O 

04 

0.1?q1~(jC+J?. 

0  .  1 7  3  39  50  +  J  2 

C. 9100  COO* jC 

0.0 

95 

C.13°79CC+02 

0.  «.727i  30  +  02 

CUOOOOC+00 

J  .0 

96 

0.  lJ^7<=Cr  +  C2 

0.  16664  20+02 

C.  91  JO  CCO+OO 

3  .  0 

97 

C.13G7QCC+02 

C.  16  0  75  40 +02 

C. 9 100  CCO+OO 

0.0 

98 

C.l?c7  9CC  +  v:2 

•)  .  1  •=>^;>t)0*0'> 

C.9100 COC+OO 

0.0 

99 

C.  13r'79CC*C2 

0  .  147 -280  + J  2 

C.f51J0CCC+  JG 

0.0 

IOC 

C. 1397^0  C+02 

0.140^210+02 

C.  9 1'JO  COC+00 

0  .0 

101 

C.H979CC  +  C2 

C.  13365^0+02 

c.cioococ+oa 

0.0 

102 

G.13°7°CC+G2 

0.1259760+02 

C.9tOOCCO+0C 

J.O 

1C3 

C.  13C7QCC+02 

C.il77950+o2 

c. noo cco+oo 

J  .0 

104 

G.13979CC+C2 

C.I0'9CC  10*02 

C.9100COO+00 

0.0 

10  5 

c.i3c7-coc: 

0  .s^  a 33  1:1+  )  1 

0.9100 C00+ GO 

0.0 

1C6 

C.13979CC+C2 

o.u  ';p4  330+01 

0.91JOC3D+GG 

0.0 

107 

C. 1397°CC+C2 

C  .  7S«0JG:)+Jl 

C.9100  CCC+OC 

1.0 

108 

0  .  loZ  +  c  Ct  +  02 

0.1*2^000+02 

o.°mu  con+oo 

O.J 

1CS 

C.I6ZCS5C+C2 

C, 1722^50+02 

C.910  J  C  lp+'JU 

0.0 

110 

0.  1^17  200  +  02 

c.  :scr  7:0  +02 

G.9D0  CCO+  QG 

'J.O 

111 

C. \o\Z5  5C+G2 

C.143?00D+02 

G.9100 COO+00 

J  .0 

112 

C.  16C990C+C2 

C. 13554  00 +  02 

C.  9100CGO+00 

0.0 

113 

0.1*042  =C*C2 

C. 1203340+02 

C.9100  CCO+OO 

0.0 

114 

C.16026CC  +  C2 

0. L04C70O+02 

C.9100  CGi+'jO 

0.0 

115 

0.  \5c--><-  =l+£2 

C.c'-»j2^C0*i;i 

C.9iOOCC0+0C 

0.  0 

lift 

0.  lic.  I1  CC+02 

G.1J-  19JGO+02 

0.902^  6 -^  0+00 

!J  .0 

117 

C. 1 64745C+C2 

0.  17  69  720+  02 

C.9024430+JG 

1.0 

118 

0.  1*4330 C+G2 

0.  17  1^0  20+0  2 

C. 9 J19 6  60+00 

0.0 

llc 

C.lB4JlcC+^ 

C. 16  6c  730+02 

0.9014  400+00 

0.0 

12C 

0. 13365CC+C2 

C.  16  125  60+02 

C.-*GG352D+C3 

3.0 

RF.L    FLOW    AMG 

0.  C 
0.0 
0.0 
0.0 
0.0 
O.C 
O.G 
0.0 
O.C 

1.1 

0.0 
0.0 
1.0 
0.0 
o.C 
0.0 
O.C 
0.3 
0.0 
0.0 
0  .0 
O.C 
O.C 
0.0 
O.C 
3.0 
0.1 
0.0 
0.0 
O.C 
0.0 
0.0 
O.G 
0.0 
0.0 
0.0 
0.0 
O.C 
0.3 
0.0 


218 


NOCE 

121 

12  2 
123 

124 
12? 
12* 
127 
126 
129 
13C 

13  1 
122 
133 
134 

13  = 
136 
137 
136 
13c 

14  C 
141 
14  2 
142 
144 
145 
146 
147 
148 
149 
15C 
151 
15? 
152 
154 
155 
15fc 
157 
158 
159 
16C 


2(1  ) 

0.  1  fl"1?  R  BC+02 
C.  132°20C  +  C2 
C.1H2555C+C2 
0.  1821QGC  +  32 
C.  1  =1  J2-C+C2 
G  .  13146CC+G2 
C.i310,*3C+02 
C.H-C73CC  +  C2 
0.180365C+02 
C.1RG0QCC+02 
0.194-405C  +  C2 
C.i9i537C+C2 
C.  1946':9r*C2 
C  19430  1C+C? 
C.19^>3  4C+Q2 
C.  1S506  6  C  +  C2 
0.1S51<?dC*G2 
C. 195 3 30 C +02 
I .2C373CC+C2 
G.20^ic7t:  +  G2 
C.2C46  J4C  +  C2 
C.2051«  1C+C2 
C  .  2  C  i  6  VI  C  ♦  02 
C.2C61 *6C+C2 
0.2066<>?C*O2 
C.2C71 qQC+O? 
C.2C76  7  7C+C2 
C.20*l 74C+C2 
Q.?C<36s  71C  +  C2 
Q.2G916  9C+C2 
C.2096  !boC+02 
C. 2  iCl S3t+C2 
0  .2lOo6CC  *02 

C.2  1M  occ+02 

C.2U-1  0«C*C2 
C.217516C+G2 
C.21e224C  +  C2 

C.  llr^l    1  C  +C2 

c.:i[-6:  =  r»v;2 

C.22C347C+C2 


SUvyA^Y    CF    MODAL     COnc  D  INATC  S 

R  (  I) 

3{  I  ) 

AHS 

0.  15  5  70*0+0  2 

C.9C01  ?7D+0C 

0.0 

C.l49»lC0+02 

o.cr.-^e^n+uo 

0  .0 

G.  14390C0  +  02 

C.  3986?  70+ GO 

0.0 

3.13  76170+0  2 

o.3~769QOfOo 

0  .  0 

0.13 10^^  +  02 

G.3O66260+G0 

0.0 

0.  1241010+ J2 

C.  3953  g*0+GC 

0.  J 

J  .1167530+02 

O.P  ?3 9460+  CO 

0  .0 

C.  1CS92  10+02 

C. 3922450+00 

0  .  0 

C.  10 U  -7  50  +  0  2 

c.«902  l^o+oo 

0.0 

C.S1250CD+O1 

0.3H77  430+CO 

0.0 

C.  l^C  30  50  + 02 

C.  3  701  220+00 

0.  3 

0.170*550+02 

G. 36)03  20D+OG 

0.0 

C.16Ga500+02 

0.3487910+00 

0.  ^ 

C.  150iPC0+02 

C.8395C9C+0G 

0.0 

J  .I0S6=>20+02 

C.d  1  36440+00 

0  . 0 

C.  1261620  +  02 

C.7«e.6  39C+00 

0.0 

C.  112  24  ID  +02 

G.76-P.2  5fO+  CO 

J.O 

G. 963 3000+01 

0.7223 75D+OC 

0  .0 

C  17  £  71  CD  +  0  2 

C.  903  0410+  GO 

0.0 

C  .174,3290  +  0-2 

C.°02  5  030+00 

0.0 

C.16^235^  +  <J7 

G. 9J19920+00 

0.0 

C.16521C0+02 

G.9014450+CC 

0.0 

0.1o0470D+02 

0.9003  550+00 

0  .3 

3.  1555760  +  G2 

:.oco2  C4n+oo 

0.0 

C.  150c23O+0? 

C.39Q4  7  8D+0C 

0.0 

0.1452^50+02 

G.3V366«0+00 

0.0 

c.  ncr  710+02 

0.^977  530+  JO 

0.0 

0.13  42290*02 

Q.qo,,7  c$o+00 

0.0 

0.1231330+02 

0.HO5680L+O0 

3.0 

C  12  216  40  +  02 

0.  ^943  720+OC 

0.0 

0  .11  5fc60n+02 

g.-j  '•»:  7  4.  J  0+0  0 

0  .  3 

C.  10 c 7690+02 

C.  -J 9  J641C*  CO 

o.o 

0.  10  14  100  +0  2 

G.3e77CC0+0G 

vj   .    0 

G.  17 353 50+02 

0.9100 CGC+OD 

0  .0 

C.  169c-*  50  +  02 

C.Q',00  CCO+00 

3.0 

C.10  0  r«UD+0  2 

C.^UCO  000+00 

0.0 

0.1511400+02 

C.9ijOC3!:+O0 

0.0 

C.  UO 82 93  +  0  2 

C.  ?iOO  CO  uC 

•j.O 

0  .12  "570  10+  .1  3 

C.Q100C0C+00 

0.0 

G.  117  5240  +  02 

C.9100CCD+GO 

0.0 

FLOW     4NG 


PEL    FLOW 

O.C 
O.G 
0.0 
O.C 
0.0 
0.0 
0.0 
0.0 
0.0 
O.C 
0.0 
O.C 
0  .0 
0.0 
0.0 
0.0 
O.C 
CO 
0.0 
O.C 
0.0 
0.0 
0.0 
0.0 
O.C 
O.C 
0.0 
O.C 
0.0 
0.0 
CO 
0.0 
O.C 
0.0 
0.0 
0.  c 
0.0 
0.0 
0.0 
0  .0 


219 


161 
162 
162 
164 
16  5 
166 
167 
16*: 
16C 
17C 
171 
172 
172 
174 
175 
176 
177 
178 
17<: 

lac 

181 
182 
182 
184 

18  = 
186 
187 
188 
1SC. 
ISC 
191 
1*32 
L«J3 
ISA 
1S5 
1*36 

19  1 
19€ 
l<=c 
20C 


Z(I) 


SUMMARY    CF    MnoAL    COORDINATES 

R(  I)  a(  I  ) 


c  H 

22 

22 
22 
2  2 
2  2 
22 


3  i 


7  3 

2? 

2* 
24 
24 
24 
24 
24 
2<+ 
24 
26 
26 
26 
2s 

"  c 

Ik 
26 
2fc 
2A 
26 
26 
2* 
26 
26 
2  5 

2<; 


1055 
P3Q0 
E71  1 

S132 
9  <42 

*"!  5  ■?  4 

S  7  6  A 
qej  7  = 

01  ~i<- 
060? 

[31     C 

]  6  2  c 

1  7]f) 

14  jC 
"C 
616  1 
/  J7  1 

co  q  ? 

5  p  r;  5 
5  5  0  A 
5  714 
•56?  c 
40  0  0 
"  7  J  G 
240' 
3  1  o  C 
2-OC 

2  5  0  C 
2  2  0  0 
1CGC 

1  6  0  c 


in 


i  o  o  c 

070C 

o4cc 
0 1 0  c 

r-  (J  0  c 
70  CC 


c  +  c2 

C  +  02 

C  +  02 
C*C2 
C  +  C2 
C  +  C2 
C  +  G2 
C  +  C2 
C+02 
C+C2 
C  +  C2 
[>G2 

r+C2 
C+C2 
C+02 

r  +  c2 

C+C2 
C+G2 

c  +  c2 

C*C2 

C  +  C2 
C+C2 
C+02 
C  +  C2 
C  +  02 
C+02 
C  +  C2 
C+l2 
C  +  C2 
C  +  C2 
C+02 
C  +  C? 
C+C2 
C  +  02 
C+C2 

c  +  02 

C  +  C2 
C  +  C2 

r.+C2 

C  +  C2 


C.  1C 

o .  i  r 

0.  37 
G.  16 

C  .  lo 
C.  16 
0.15 
0,15 
3.14 
0.14 
0.  13 
G.13 
0.12 

c.  u 

0.11 

n  *  r\ 
U  •    i.    J 

G.  17 
C.17 
C.  16 

C  .15 
C 

c 

0 

0, 


14 


12 
10 
0.17 
0.1T 
C.  17 
O.I'. 
C.16 
0.  15 
O.lb 
C.  14 
U.  14 
0.13 
C.  13 
G.12 
0.12 
3.  li 
0.11 
C.  17 


3  c  3  CO +  0  2 

9"nOO+J2 

4*1  1D+02 

c^-00+j2 
ScGlO+02 
11230+0  2 
&518D+02 
17720+02 
6874D+02 
18060+02 
65510+02 
103  50+03 
53d 13+02 
^4J4J+02 
31120+0  2 
645  00+ 02 
826GD+U2 
01660+0  2 
155  70  +  02 

27390+02 
24120  +  02 
11490+02 

g  7  ->  5T+Q2 
82600*02 
441"0+G2 

C2/60+32 
fc.?4ljn+02 

1  c-»riD>j? 
?^42:i  +  02 

2  16  30+02 

o^oo+o? 

37860+J2 
886  00+02 

3  75'"; +  02 
84420  +J2 
29040+02 
71040  +  02 
lO-ioO+02 
82600+02 


CHOO 
0.3O90 
C  .  8  9  p  9 
C.«987 
C.3«95 
C.8C33 
O.H«31 
C.8973 
C.3C75 
G.S  J72 
C,dS68 
0..u'->64 
0.8  960 

0.8-50 
C.ML44 
C  .  fl  2  \  2 
0  .  .1 2 1 7 

C..1224 
0.8  229 
0.8  223 

C.0233 
0.c;229 
C.  ^21  ;1 
C.39^1 
0.3938 
C  •  3 ->  '.7 
tj  .  o  .  ^ 
C  .oi:"S3 

c .  8  q  9 1 

0. -^70 
C.8  »7S 
C. iS73 
0.3-J69 
C . S vo  5 

0  .  o "'  0  5 
C. a 9^9 
0.3943 

c.noo 


CCO+CG 
680+00 

320+00 
7-0+  OC 
9  3  0+00 
830+ GC 
430+00 
7 3  0+ JO 
720+00 
4OC+G0 
730+00 
8  30+0  0 
5  10+00 
1 30+  0  C 
4  00+00 
3  70+00 
coO+GC 
730+00 
CC+OG 

3  5  0+00 

4  ?0+00 
6 1 C  *  0  C 
7  30+0  0 
5SC+GG 
1G0+CC 
S2C+00 
3 1  0+  0  0 
620+00 

r;   )?+30 

C50+0C 
620+00 
7^0+UO 
3^0+ JC 
730+00 
3  5  0+  0  0 
610+00 
500+00 
910+00 
220+  )0 

coc+oo 


ABS     FLOW    4.NG 

0.0 
0.0 

0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
CO 
0  .0 
0.0 
0.0 
0.0 
0.0 
0  .0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 

o.o 

0.0 

o  .o 

0.0 
0.0 
0.0 
0.0 
0  .0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
3.0 
0.0 
0.0 


REL    FLOW    VJG 
0.0 

o.c 

0.0 
0.0 
O.G 
0.0 

o.c 

0.0 

0.0 
0.0 
0.0 
O.G 
0.0 
0.0 

o.c 

0.0 

0.0 
0.0 
0.0 

o.c 

0.0 
0.0 

o.c 

0.0 
0-0 
0.0 
0.0 

o.c 

O.G 

0.0 

c.c 

0.0 

O.G 
0.0 

0  .  o 
o.c 

0.0 
0.0 

o.c 

0.0 
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SUMwarsY    CF     NODAL     CriiPJ  I  NATES 

NOCF 

Z(I) 

a(   I   ) 

H(  I  ) 

A3S 

201 

C.2C*.70CC  +  C? 

C.  17C4C?  )+02 

C.9100  0CLI+OC 

J.O 

202 

Q.296+G0C+02 

0* l62067r">+02 

C.  "51  JO  con*- JO 

0.0 

202 

C.2S610CC+C2 

C.152?  720  +  02 

C.91J0C0U+  DO 

J. 3 

20* 

0.  2cc^JCC+^2 

J.  H?c-  l.)«-02 

c.  siooccn+uc 

).  3 

2C5 

c.29=?5  )cc*C2 

0. 15  396 10+02 

0.^13000^+30 

J  .0 

206 

C.2552CCC+C2 

C.  12317  50  +  02 

0.^100000+00 

0.0 

20  7 

0.29iO0GC+C2 

O.li  13*500+02 

0.9UOCC0+OO 

0.0 

2C6 

C.23GCQCC+C? 

0.1783600+02 

0.91  ;o  COC+uO 

0.0 

209 

C.23GOOCC+C2 

3.  174445)  +  02 

C.910000U+00 

0.0 

21C 

C .23000  :c  +  c: 

G.170*Mn+02 

c.<»ioo  cnc+oo 

0.0 

211 

C.  23C30CC+C2 

0.  166340H  +  Q? 

C.-iJOJO'J+ JO 

J.O 

212 

C  .  2 30  3JCC+C2 

0.1*?  13=0+02 

C.  9100CC0+CC 

0 .  0 

213 

Q.230000C+C2 

0  .  1S7H190+02 

c.  noo ooo+oo 

U.J 

214 

0.23OO0CC+C2 

0. 1533410  +  02 

C.9100CCU+00 

0.0 

215 

0.33UJ3CC+0? 

Q.1-9--U  10+02 

G.9100CC0+00 

0.0 

2\t 

C.230UGCC+C2 

0.144G953+02 

C.910OC0D+U0 

0.0 

217 

C.22GOOCC+C2 

C. 13S221D+C2 

C.  9  LOO  000+  0  c 

0.  0 

213 

C.330J0QC+C2 

0.13 4 16 no +02 

0.9100 COO+00 

3.0 

219 

C.23CCGCC+C2 

C.  12. ■'»'- 1^  +  02 

C.->1  )0G0C+J0 

0  .  J 

220 

0.  23000  OC +  02 

0.  1234*.  70  +  02 

C.51JOCC0+O0 

O.J 

221 

C.23CO0CC+C2 

0  .11  77.20H+03 

C.yi DO  000+00 

J  .0 

222 

C23000CC  +  C2 

G.  1U7CC0  +  C2 

0.9100000+30 

0.0 

9EL    FLOW    Vi< 
0.0 

o.c 

0.0 
0.0 
J.O 
0.0 
0.0 
0.0 
0.0 

o.c 

0.0 
0.0 

0.0 

0.0 

o.c 
o.c 

0.0 

o.c 

O.J 
0.0 
0.0 

o.c 
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SYSTEM    TOPOLOGY 


ELEMENT 

NOCES 

TYPE  C 

F  2lE"-< 

1 

24 

16 

1 

2 

3 

17 

26 

25 

1 

2 

26 

17 

■x 

4 

5 

13 

2  8 

27 

i 

3 

26 

16 

c 

6 

7 

19 

30 

•79 

4 

3C 

IS 

7 

8 

9 

20 

32 

21 

c 

32 

2C 

c 

10 

11 

21 

34 

33 

6 

34 

21 

11 

12 

13 

22 

36 

35 

7 

36 

22 

13 

14 

15 

23 

38 

37 

8 

4-; 

3  C 

24 

25 

26 

40 

4.9 

43 

9 

4C 

4C 

26 

27 

29 

41 

51 

50 

1C 

51 

41 

2d 

29 

30 

42 

53 

52 

11 

c  s 

42 

2C 

31 

32 

43 

55 

54 

12 

55 

43 

32 

33 

34 

h4 

57 

5o 

13 

51 

44 

34 

35 

36 

45 

59 

53 

14 

cc 

45 

36 

37 

38 

46 

61 

60 

15 

7C 

62 

47 

43 

49 

&3 

72 

71 

16 

72 

62 

49 

50 

51 

64 

74 

73 

17 

7* 

64 

5  1 

=;  2 

53 

65 

76 

75 

18 

76 

65 

53 

54 

55 

66 

73 

77 

IS 

76 

66 

55 

5  6 

57 

67 

30 

79 

20 

8C 

67 

57 

58 

59 

6a 

3? 

31 

21 

62 

6  6 

59 

60 

61 

69 

34 

33 

22 

C  •: 

65 

70 

7  1 

72 

?6 

q=; 

94 

23 

95 

36 

72 

73 

74 

97 

9  7 

96 

24 

SI 

87 

7h 

75 

75 

83 

99 

93 

25 

99 

86 

76 

77 

73 

39 

101 

100 

26 

101 

39 

78 

79 

80 

90 

103 

102 

27 

1  Cl- 

9C 

8C 

81 

82 

Ql 

105 

104 

28 

iCe 

r-l 

3  ^ 

8  3 

84 

92 

107 

106 

29 

116 

1C6 

93 

94 

95 

109 

113 

117 

30 

1  16 

lc*; 

95 

96 

97 

110 

120 

lip 

31 

12C 

no 

97 

99 

Q9 

111 

122 

121 

32 

122 

111 

99 

100 

101 

112 

124 

123 

33 

124 

112 

10  1 

102 

103 

U3 

126 

125 

34 

126 

112 

i  in 

1  J4 

105 

114 

123 

127 

35 

126 

114 

1C5 

106 

107 

115 

130 

129 

36 

13« 

131 

115 

117 

113 

132 

141 

140 

2 

37 

141 

132 

I  X  ^ 

119 

120 

133 

143 

14? 

2 

38 

142 

122 

120 

121 

122 

134 

145 

144 

2 

39 

14S 

134 

122 

123 

124 

13  5 

147 

146 

2 

40 

1  47 

135 

12'. 

125 

125 

136 

149 

14  3 

2 

41 

149 

13  6 

126 

127 

128 

137 

151 

150 

2 

42 

151 

137 

i  ->■* 

1?9 

130 

138 

153 

15  2 

2 

63 

16  2 

15* 

1  ac 

L4Q 

1*1 

155 

164 

153 

I 

44 

L6< 

155 

14  1 

142 

143 

1  S£ 

1*6 

1  5  3 

45 

166 

156 

142 

144 

145 

157 

16  3 

167 

46 

It? 

157 

lic 

146 

14  7 

1  59 

171 

169 

47 

1  7C 

15° 

14  7 

1  u.O 

149 

159 

172 

171 

48 

1  72 

15  9 

149 

150 

151 

160 

174 

1  7  2 

49 

17* 

16  C 

„5  1 

1"2 

!  53 

1-1 

176 

1  7  = 

50 

185 

177 

162 

163 

164 

173 

197 

136 

3 

51 

1  67 

17£ 

1  6  4 

165 

16b 

17  = 

1  ?,  9 

HI 

3 

52 

189 

17c 

iA6 

167 

163 

ISO 

191 

190 

3 

53 

19! 

18  Q 

'  o3 

1  r,  q 

1  70 

19  1 

193 

1^2 

i 

5* 

192 

181 

I  7C 

171 

172 

1Q2 

195 

194 

3 

55 

19? 

182 

172 

173 

174 

1=3 

197 

196 

^ 

56 

19  1 

i  g  i 

174 

175 

176 

134 

199 

199 

3 

57 

2C6 

zee 

its 

136 

13  7 

201 

210 

20  9 

58 

21C 

201 

187 

133 

i  aq 

202 

212 

211 

59 

212 

2C2 

169 

190 

191 

2  03 

214 

213 

60 

21* 

2C2 

19  1 

192 

193 

2  0  4 

216 

71  5 

61 

216 

204 

1^2 

194 

195 

205 

219 

217 

62 

216 

c  U  - 

lc5 

lc6 

197 

209 

2Z0 

?  1  9 

63 

22C 

20  6 

19? 

198 

199 

2C7 

222 

221 

NT 


222 


INLET    THEPMOHYNAMIC    VARIABLES    ARE    AS    PnLLCWS 
FLOW    PATE    =      Q.  17454CD+C3    LBM/5EC 
TCT    CENSIT>     =       0.S51884C-01LBM    CU    FT 

TOT    PRESSURE    =       G.1750GC0+O2    PSI 

TOT     T5VPTP.ATLFE     =       C.5550CGD+03     DEC    R4NKINE 

RCT4TICMAL     SPEEC    =       0.6975200+04    PPM 

INLET    U    VELOCITY    =       C.  3  C6S2  2"  +  03    FT/SEC 

GAS    CCNSTAM     =       C  .53 30CCD+G2 

RATIC    CF    SPECIFIC    hFATS    =       0.14GGCCO+G1 

SPECIFIC    t-±n    AT    CCNSTANT    PRESSURE    =      0.2400000+00 

STATIC    DENSITY    AT     I  ME T    =       0.32212*0-01 
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NCCES    WHE^E    PS  I     IS    SPECIFIED 


NCDE    nc 

1 

2 

3 

< 

e 

* 

6 

7 

6 

c 

1C 

11 

12 

13 

14 

15 

16 

22 

24 

26 

5  C 

4  6 

47 

61 

62 

6<? 

7C 

84 

65 

92 

93 

1C7 

IC8 

115 

116 

12C 

121 

128 

139 

152 

154 

161 

162 

176 

17  1 

184 

185 

l^c 

20C 

2C7 

2C£ 

222 

PS  !(  I  l 

0 

.277769^+02 

0 

.2c7^4  7t)  +  0  2 

0 

•2231050+02 

c 

.2162620+02 

0 

.19642  10+02 

c 

.l7£c«7SQ+02 

c 

,15t727D+02 

0 

.1383  q  =  -)+c : 

c 

.1190520+02 

C 

•  c92104i)+01 

0 

.7^  2:6  930+01 

c 

.  5C 52620+01 

c 

,3C6R4 10+01 

c 

.1964210+01 

c 

.C 

0 

.2  777690+02 

a 

.0 

c. 

,2777cSO+C2 

0 

.0 

c 

.2777890+02 

c 

.0 

0 

.2777890+02 

c, 

,G 

c 

.?7779G0+02 

c 

.0 

c 

,2117f.c.D*C2 

0 

.0 

c 

,2777d^n+02 

c 

.0 

0 

.2777390+02 

c 

.0 

0 

.2777890+02 

c 

.0 

c 

,2777gcJ+C2 

0 

.0 

c 

.2777890+02 

0 

.0 

a 

.2777390+02 

c, 

,C 

c 

.27778^0+02 

0 

.0 

0. 

,2777£-,D>G2 

0 

.0 

c 

,Z7776"-0  +  0Z 

0 

.0 

0 

.2777890+02 

0, 

,C 

0 

.27770^0+02 

c 

.0 

c, 

,2777£=0+C2 

0 

.0 
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IAPGCS 
HERAT 

STREAM 
NFXT  I 
URGES 
HERAT 
STPEAV 
NEXT  I 
LAFGFS 
HERAT 
STREAN 
NEXT  I 
LAPGES 
IT  EP  AT 
STREAN 
NEXT  I 
LASG^S 
HERAT 
STP  EAV 

next   i 

LAPGES 
HERAT 
J  T  9  =  A  P 
NEXT  I 
LAPGCS 
HERAT 
HP  EAM 
NEXT  I 
t  A  F  G  E  S 
I  TcRAT 
STFEAN 
NEXT  I 
FRTCP A 
RF5LI  T 
STREAM 


T     FPS     FC 
ICN    NO. 
FUNTT  \r 

T  E  n  A  T  I  H  N 
T  EPC  FT 
I C  ^    N^. 

Fi.NfT  ir 

TEP-T  UN 
T  EPS  FC 
ICN    rn. 

flNCT  \r 
T  E  w  i  T  I  C  N 
T  EF.^  PC 
ICN    NC. 

F LNC  T I  C 

T  EPS  PC 
ICN    NO. 

FL\CTIC 
7E  =  ATI  IN 
T  EPS  CC 
ICN    NO. 

F  I  NC  t  I  C 
TERATIHN 
T  Fee  PC 
ICN    *:0. 

FINCT  IC 
T  E  F  A  T  I  r  \ 
T  EPS  PC 
ICN    f.f  . 

F  L  N  C  T  I  C 
TEFAr! "N 
V  T  t c  M  I  N 
S     UHICH 

F  I  NC T I Z 


F     ITFP 

1  C r 

N    CON'V 

15  IN 
p     TTrc 

2  CC 
N    rQNV 

IS     IN 

F     HCR 

?    CC 

N    CONV 

IS  IN 
F    ITP° 

4  CC 
N    CJNV 

IS  IN 
F     ITER 

5  CC 
N    CONV 

IS  IN 
h     I  T  P.  P 

6  CC 
N    CONV 

IS  IN 
F     ITrR 

7  CC 
N    CONV 

IS     IN 

F     ITER 

fl    fu 

N    CJNV 

IS  IN 
AT£l>  C 
F  C  L  L  f  w 
N     CJNV 


£T  ! 
fFL 

EFC 
FF 

;ti 
vpl 
P!J£ 

pt; 

ATI 

"•Ft 

ERG 

F^ 

JTT 

VFI 
FRG 
P»< 
AT  I 
^  PL 
ERG 

Fr 

4  T  T 

*FL 

ERG 

PF 

at  i 

Ncl 
ERG 

P<- 
ATT 
*Pl 
ERC 

PR 
N      I 

£C 
ERG 


CN       1     IS       0.5-^075^5  5S2C6D+00 

r  ~  c 

ENCE    NOT    YET    SAT  ISP  ICD. 

CGRESS 

CN       2    IS      0-2 C48022 7362^0*00 

_ETC 

JFNCE    NHT    YET    SAT  IS  F  I  ED. 

CGRESS 

CN       i     IS       0.L259221A4522D+00 

FTc 

lNCE    NOT    YET     SATTSF  IED. 

CARESS 

CN       4    IS      0.^<+142-:)324L00D-01 

=  7  F 

ENCE    NCT    YET    SAT  IS  F  ICC  . 

CG«ESS 

CM       5     IS       0  .6621S8640489D-01 

PTC 

[sCc    NOT    YET     SATISFIED. 

CGFESS 

CN       6    IS       0.46^4587  C38000-01 

ETE 

F\Cr    NCT    YET    SAT  IS F  IED. 

CGRESS 

CN       7    IS       0  .34227^2  59C92D-01 


YET     SATISFIED. 
0.254317279121O01 

YET     SATISFIEC. 


Ef.C=    NOT 
CGRESS 
P-     J     IS 

=  NCE    NCT 

fr-,r  r?S 

TtrPAT  ION    MO.       «? 

t    F(<!    CCNVCRUENCE    EPSILON    =       3 .  1390177416520-3  1 

EMCE    CRITERICN    SATISFIi:D    CN    ITEKATICN       NUN"dFR 


PESLLTS    ARC    AS    FCLLC'*S    FCR    CCNVESGENCE 
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c.  c 

ICO 

O.C 

C  0 

1C1 

C.C 

CO 

1C2 

C.C 

C  0 

1C3 

O.C 

CO 

1C4 

C.C 

c  c 

1C5 

C.C 

c.  c 

1C6 

O.C 

CO 

1C7 

C.C 

c  c 

ica 

O.C 

CO 

1C9 

O.C 

0.0 

UC 

C.C 

CO 

111 

O.C 

c  c 

1  12 

O.C 

0.0 

1  13 

C.C 

c.  c 

114 

C.C 

CO 

115 

O.C 

CO 

116 

C.C 

66.  524267 

117 

C.C 

67.  647252 

118 

O.C 

66.2367C5 

lis 

C.C 

65.232962 

120 

C.C 

64. C7  14c  6 

121 

O.C 

63.285336 

122 

C.C 

62.226517 

123 

C.C 

6  1.  5C  1^47 

124 

O.C 

60.427729 

125 

C.C 

59. 476407 

126 

C.C 

58.  C62552 

127 

O.C 

56.HB9345 

128 

C.C 

54.  23C135 

129 

C.C 

5*.  45^35 

13C 

C.C 

50.544037 

121 

17.93 

5567 

62. 3  16772 

122 

21.01 

s2  £ 1 

60. 5CC622 

133 

15. P9 

104  3 

58.^34825 

124 

2C.  1  C 

1  5  1  2 

56.  112c30 

335 

21.  t? 

b3  6  5 

52.  9C47C6 

136 

22. fC 

R3.8C 

48.  155B85 

127 

2  2.67 

4?82 

«C.  65376* 

128 

24.26>757 

3  1.09  144  7 

139 

35.871161 

56.  113286 

14C 

3£.  7  9 

26^1 

55. 7293C2 

141 

4C.7C06  46 

5*.  eC*ec2 

142 

3<=.72 

80^5 

54.007690 

143 

26.92 

1CS2 

52.  =355C6 

144 

4G.C2 

4S77 

51.  455^52 

145 

41  ,2C 

=  10  3 

4<=.  807077 

146 

4  2.2  e 

^643 

47.  "C4548 

147 

43.29 

<-3  2  2 

45.  276C52 

148 

44. =c 

;70i 

42. 17E7C6 

l*o 

45.67 

77  9  4 

3F.  2C5559 

15G 

4*.  79 

73G2 

22.  2C96C4 
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151 

47.-35?°7  a 

26.  9 

1  5  2 

4  6.2 C 53 12 

2C.  1 

153 

4  P. 5  72  44  5 

11.  6 

154 

37.52208C 

C.  0 

155 

3C.1C41 72 

0.0 

156 

36.249535 

C.  C 

157 

4C. 264267 

0.0 

158 

42.644o^4 

0.0 

159 

4  4.637176 

c.  c 

160 

4  7.177568 

CO 

161 

49.663-56 

0.0 

162 

3  6.662036 

c.  c 

162 

37.517501 

0.0 

164 

3  7.4  5003  8 

0.0 

165 

27.226953 

c.  c 

166 

3 7. C 6  06 6 4 

0.  c 

167 

27.781893 

0.0 

168 

38.75n1^6 

0.0 

169 

39.c22426 

Urn  C 

170 

4C.C77704 

0.0 

171 

4  2.  14.7144 

G.  C 

172 

43.  150734 

0.  0 

173 

4^.47^770 

0.0 

174 

44.742891 

c.  c 

175 

46.4?23«2 

CO 

176 

47.9=7274 

CO 

177 

16.  164506 

c  c 

178 

17.779536 

0.  0 

179 

16.C1631C 

c.c 

ieo 

lr.c1792£ 

cc 

131 

20.267(S6C 

0.0 

152 

21.458172 

C.  G 

183 

22. 185938 

0.  0 

164 

23 .C20279 

0.0 

165 

-4. 233047 

c.  c 

166 

-2.72449S 

CO 

187 

-1.942182 

CO 

168 

-1.221061 

C.  0 

189 

-1.C43351 

CO 

19C 

-C.92Q7P9 

c.c 

191 

-0.662696 

c  c 

192 

-C. 810042 

0.0 

192 

-C. 5*3789 

c.  c 

194 

-0  .3 CA746 

0.  0 

lc5 

-C. 299997 

CO 

1=6 

-C. 135359 

c.  c 

197 

-0  .33^125 

0.0 

198 

-C. 8346^2 

CO 

199 

-l.c56694 

c.  c 

2C0 

-4.776b?7 

0.0 

2C1 

-2.C276C2 

c  c 

2C2 

-1.12P637 

CO 

2C3 

-C. 990967 

0.0 

2C4 

-C. 66979  1 

C  0 

2C5 

-0.2524-44 

C.  0 

2C6 

-C.5C4105 

c  c 

2C7 

-2.625Q4C 

C  0 

206 

-4.666014 

0.0 

2C9 

-2.794146 

CO 

210 

-1.9C1285 

c.  c 

211 

-1.29P307 

CO 

2  12 

-1.C76031 

CO 

213 

-0.986325 

c.  c 

214 

-0.962329 

CO 

215 

-C.62738C 

c.  c 

216 

-C.  6 6 59? 6 

CO 

217 

-C. 556639 

0.0 

2  18 

-C.22&C-1C 

c.  c 

21=5 

-0.202978 

CO 

220 

-C.  52  02  9  7 

0.0 

221 

-1.252831 

c.  c 

222 

-2  .Cl«5<->2 

C  0 
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>cc 

YCU     V  ISH 
1    =    YCS ;    i 

TC 

>      = 

=  N1Fh    TH? 
NC. 

i    PLCT    SEQUENCE? 

>DC 

YOU 

1    = 

V  ISH 

YES; 

TC 

CCM  I.VJE 
*    NC. 

PLOT 

SEQUENCE? 

>CC 

YHU 
1     = 

fc  ISH 

YES; 

TC 
2 

CCM  INUE 

-    NX. 

PLOT 

SEQUENCE? 

>cc 

YCU 
1    = 

'a  ISH 

yes; 

TC 
2 

ccminue 

■    NC. 

PLOT 

SEQUENCE? 

>oc 

YUU 

V»  ISH 
YES; 

TC 
2    ■ 

CCM  INUE 
=    NC. 

PLOT 

SEQUENCE? 

>cc 

YOU 
1    = 

W  ISH 

YES; 

TC 

2 

CCM  I  NU  E 
•    NC. 

PLOT 

SEQUENCE? 

>cc 

YCU 
1    = 

V.  ISH 

YES; 

TC 
2 

CCNT  INUE 

■    NC. 

PLOT 

SEQUENCE? 

>cc 

YCU 

1    = 

W  ISH 

yes; 

TO 
2 

CCNT  INUE 
=    NC. 

PLOT 

SEQUENCE? 

>oc 

YCU 

1     = 

1*  ISH 

yes; 

TC 
2 

CCNT  INUE 
=   NC. 

PLOT 

SEQUENCE? 

>cc 

YCU 
1    = 

«  ISH 

yes; 

TC 

->    ■ 

CCNT  INUE 
•    NC. 

PLOT 

SEQUENCE? 

>DC 

YHJ 
1    = 

W  ISh 
yes; 

TC 
2 

CCM  INUE 
=    NC. 

PLOT 

SEQUENCE  7 

>cc 

ynu 

1   = 

w  ISH 
YES;- 

TO 
2 

CCNT  INUE 

=    NC. 

PLOT 

SEQUENCE? 

>cc 

YCU 
1    = 

*  ISH 

YES; 

TC 

CCMINUE 

-    NC. 

PLOT 

SEQUENCE? 

>cc 

Yrj 

1    = 

*  ISH 

YES; 

TC 
2 

CCNT  INUE 
-     NC. 

PLOT 

SEQUENCE? 
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